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Hypra-Ass  —  ein 
Assembler  der 
Spitzenklasse 

Hypra-Ass  zum  Abtip¬ 
pen  gehört,  was  Lei¬ 
stung  und  Schnelligkeit 
anbelangt,  zu  den  be¬ 
sten  Assemblern,  die 
es  zur  Zeit  für  den  C  64 
gibt.  Er  assembliert  5 
KByte  Quelltext  in  nur 
vier  Sekunden.  Die  Defi¬ 
nition  von  Makros  ist 
selbstverständlich.  Ein 
tolles  Listing  des  Mo¬ 
nats  auf  Seite  51 
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EPROMs  —  Grundlagen 

und  Programmiergeräte 

Was  ist  eigentlich  ein 
EPROM,  und  wie  pro¬ 
grammiert  man 
EPROMs?  Dazu  brau¬ 
chen  Sie  auf  jeden  Fall 
ein  Programmiergerät. 
Fünf  Vertreter  dieser 
»Prommer«  haben  wir 
für  Sie  getestet.  Mecha¬ 
nische  Schalter  auf  die¬ 
sen  Platinen  gehören 
auf  jeden  Fall  der  Ver¬ 
gangenheit  an. 

Seite  36 
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Spiele-Tests 

Wir  haben  uns  eine 
neue  Form  der  Rubrik 
Spiele-Test  ausge¬ 
dacht.  Auf  engstem 
Raum  werden  die  wich¬ 
tigster»  Informationen  in 
übersichtlicher  Form 
dargestellt  und  zwar  für 
alle  Spiele  identisch. 
Damit  lassen  sich  ähnli¬ 
che  Spiele  wesentlich 
besser  miteinander  ver¬ 
gleichen. 

Seite  48 
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Marktübersicht: 
Akustikkoppler  und 
Modems 

Das  Angebot  an  Aku¬ 
stikkopplern  und  Mo¬ 
dems  nimmt  mit  wach¬ 
sender  Beliebtheit  der 
Datenfernübertragung 
bei  Heimcomputer- 
Anwendern  naturge¬ 
mäß  stark  zu.  Eine  aus¬ 
führliche  Tabelle  soll 
helfen,  sich  für  das 
richtige  Datenübertra¬ 
gungsgerät  zu  ent¬ 
scheiden. 
Seite  32 
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Vergleichstest:  Sieben 

Dateiverwaltungen  auf 

einen  Blick 

Für  die  Verwaltung  von 
großen  Datenmengen 
ist  der  Heimcomputer 
ideal  geeignet,  voraus¬ 
gesetzt  man  hat  das 
richtige  Werkzeug 
sprich  Programm  dafür. 
Wir  stellen  die  sieben 
bekanntesten  Dateiver¬ 
waltungsprogramme 
mit  ihren  wesentlichen 
Merkmalen  vor. 
Seite  1 1 8 
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Erster  ausführlicher 
Testbericht:  C  128 
(Teil  2) 

Im  zweiten  Teil  unseres 
Tests  geht  es  haupt¬ 
sächlich  um  das  Be¬ 
triebssystem  CP/M. 
Außerdem  wird  gezeigt, 
welche  »Innereien« 
sich  im  C  128  befinden 
und  welche  Aufgaben 
die  einzelnen  Chips  ha¬ 
ben.  Elegant  und  lei¬ 
stungsfähig  präsentier¬ 
te  sich  auch  das  neue 
Diskettenlaufwerk  1571. 

Seite  1 7 


Listings  zum  Abtippen 

Hinweise  zum  Abtippen 

77 

Anwendung  des  Monats 

Damit  Sie  wissen, 

was  Sie  ausgeben 

54 

Listing  des  Monats 

Hypra-Ass  —  Ein  Assembler 

der  Spitzenklasse 

66 

Tips  &  Tricks 

Basic-Start-Generator 

74 

So  schrumpfen  Programme 

REM-Killer 

75 

Komfortable  Ein-/Aus- 

gaberoutine 

77 

Centronics-Interface 

für  jeden  Bedarf 

78 

File-Compactor 

82 

Elektronischer  Merkzettel 

83 

»Fenster«-Befehle 

für  den  C  16 

84 

Tips  &  Tricks 

85 

Terminalprogramm 

149 

Software-Test 

Vergleichstest  Datenbanken 

Sieben  Dateiverwaltungen 

auf  einen  Blick 

118 

Promal  im  Test 

Die  ideale  Sprache 

für  Profis? 

124 

Forth-wärts  mit  M  &  T- 

Forth  64 

126 

Kurse 

Assembler  ist  keine 

Alchimie  (Teil  10) 

127 

Dem  Klang  auf  der  Spur 

(Teil  7) 

132 

Memory  Map  mit  Wander¬ 

vorschlägen  (Teil  8) 

140 

Logeleien  (Teil  1) 

143 

So  machen’s  andere 

Commodore-Sportservice  — 

Heimcomputer  zur 

Tumierauswertung 

157 

Rubriken 

Editorial 

8 

Leserforum 

14 

Hier  gibt’s  Clubs 

76 

Bücher 

88 

Leserservice 

155 

Impressum 

163 

Vorschau 

164 

W- 


Ausgabe  7/Juli  1985 


..  . 

64er-onllne.net 


Editorial 


Ein  DFÜ-Boom 

Die  Datenübertragung  kommt 
in  Schwung:  Unsere  Marktüber¬ 
sicht  zeigt,  wie  reichhaltig  das 
Angebot  an  Akustikkopplern  in¬ 
nerhalb  eines  Jahres  geworden 
ist.  Ab  etwa  300  Mark  gibt  es  jetzt 
Geräte  mit  FTZ-Nummer,  bezie¬ 
hungsweise  offizieller  Zulas¬ 
sung  durch  die  Bundespost  —  al- 
’  so  Geräte,  die  nicht  nur  er¬ 
schwinglich  sind,  sondern  die 
man  auch  guten  Gewissens  be¬ 
nutzen  kann. 

Parallel  dazu  gibt  es  erfreuli¬ 
cherweise  auch  ein  ausreichen¬ 
des  Angebot  an  brauchbarer 

Datenübertragungssoftware. 
Unser  Wettbewerb  —  das  Er¬ 
gebnis  finden  Sie  in  dieser  Aus¬ 
gabe  —  brachte  ein  sehr  komfor¬ 
tables  Terminalprogramm,  das 
auch  das  Laden  von  Program¬ 
men  aus  einer  Mailbox  ermög¬ 
licht.  An  diesem  Beispiel  ist  aber 
auch  zu  sehen,  wie  schnell  die 
Entwicklung  voranschreitet:  Vor 
drei  oder  vier  Monaten  hätte 
dieses  in  Basic  geschriebene 
Programm  noch  voll  mit  der 
kommerziell  angebotenen  Soft¬ 
ware  konkurrieren  können. 
Heute  sind  die  um  etwa  150 
Mark  käuflichen,  in  Maschinen¬ 
sprache  geschriebenen  Stan¬ 
dardprogramme  (oft  inklusive 
Interface)  schneller,  sicherer 
und  mit  mehr  Menüpunkten  aus¬ 
gestattet. 

Obwohl  man  sich  also  ein  gu¬ 
tes  Terminalprogramm  einfach 
abtippen  kann,  lohnt  es  sich  im¬ 
mer  noch,  als  Alternative  einen 
Kauf  in  die  Überlegungen  einzu¬ 
beziehen.  Auf  beiden  Gebieten 
haben  Privatleute  —  bei  den 
Akustikkopplern  die  Bastler,  bei 
der  DFÜ-Software  die  Program¬ 
mierer  —  mit  ihren  Produkten 
die  kommerziellen  Anbieter  im¬ 
mer  wieder  so  unter  Druck  ge¬ 
setzt,  daß  zügig  sowohl  die  Prei¬ 
se  gesunken  als  auch  die  Lei 
stungen  gestiegen  sind.  Es  ist  zu 
hoffen,  daß  dieser  produktive 
Wettbewerb  nicht  unnötig  durch 
die  Postvorschriften  gebremst 
wird. 


Michael  Pauly.  Chefredakteur 

8  33a? 


Hannover-Messe 

Die  Hannover-Messe  '85  bot  einige 
interessante  Neuigkeiten  bei  Btx, 
Drucker  una  Floppy. 


Die  Teilnehmerzahlen  bei 
Btx  liegen  weit  hinter  den 
Erwartungen  der  Post  zu¬ 
rück.  Ein  neues,  preislich  äu¬ 
ßerst  attraktives  Modul  für 
den  C  64  könnte  möglicher¬ 
weise  den  Durchbruch 
schaffen.  Noch  nicht  offiziell, 
aber  hinter  verschlossenen 
Türen  war  auf  der  Hanno¬ 
ver-Messe  ein  Steckdecoder 
für  den  C  64  zu  sehen,  der 
bei  einem  Preis  von  700 
Mark  den  teueren  Btx- 
fähigen  Fernseher  und  den 
Decoder  ersetzt. 

Das  Dilemma  der  verzö¬ 
gerten  Einführung  von  preis¬ 
werten  Btx-Konsumentenge- 
räten  liegt  in  einem  einzigen 
integriertem  Baustein,  dem 
Eurom-Chip.  Fast  alle  Her¬ 
steller  haben  sich  bei  der 
Konzeption  ihrer  Btx-Anlage 
auf  diesen  von  Valvo  zu  ent- 
wicklenden  Chip  konzen¬ 
triert.  Bei  der  jüngsten 
Eurom-Generation  konnten 
zwar  die  Darstellungs-Fehler 
früherer  Serien  behoben 
werden.  Gleichzeitig  aber  ist 
ein  neues  Problem  aufge¬ 
taucht:  Die  aktuelle  Serie  ist 
außerordentlich  wärmeemp¬ 
findlich.  Wenn  es  diesen 
Chips  —  was  sehr  schnell  ge¬ 
schehen  soll  —  zu  warm  wird, 
kann  von  verläßlicher  Funk¬ 
tion  nicht  mehr  die  Rede  sein. 

Durch  diese  anhaltende 
Eurom-Verzögerung  gibt  es 
bei  Konsumentengeräten 
weiterhin  nur  zwei  Anbieter: 
Blaupunkt  und  Loewe  Opta. 
Auch  wenn  der  Chipsatz  wie 
geplant  zur  Verfügung  stün¬ 
de,  die  erhofften  Preisvortei¬ 
le  würde  er  einstweilen  nicht 
bringen.  Die  Preiserwartun¬ 
gen  der  Hersteller  liegen 
durch  die  Bank  bei  einem 
Aufpreis  zwischen  1200  und 
1400  Mark  für  Btx-fähige 
Fernsehgeräte. 

Anders  sieht  der  Sachver¬ 
halt  für  C  64-Besitzer  aus. 

Technofor  stellte  den  Pro¬ 
totyp  ihres  Btx-Steckdeco- 
ders  auf  der  Hannover-Mes¬ 
se  vor  ausgewähltem  Publi¬ 
kum  vor.  Es  handelt  sich  da¬ 
bei  um  einen  vollständigen 
Decoder  nach  dem  neue¬ 


sten  CEPT-Standard  im  Mo¬ 
dulgehäuse. 

Der  Decoder  besteht  aus 
einer  komplexen  Videologik 
und  64  KByte  dynamischen 
RAM.  Register  und  RAM 
werden  über  die  I/O-Kanäle 
bedient.  Für  Telesoftware 
soll  der  gesamte  Computer 
zu  Verfügung  stehen.  Außer 
dem  C  64  und  dem  Steckde¬ 
coder  braucht  man  noch  ei¬ 
ne  Anschlußbox  der  Post 
(monatliche  Gebühren  von  8 
Mark)  oder  einen  Btx-fähi- 
gen  Akustikkoppler. 

Die  abgerufenen  Seiten 
können  auf  einem  handels¬ 
üblichen  Farbfernsehgerät 
oder  einem  Farbmonitor 
(beispielsweise  dem  1701/ 
1702)  dargestellt  werden.  In 
Zusammenhang  mit  dem  De¬ 
coder  können  alle  Schnitt¬ 
stellen  und  Peripheriegeräte 
des  C  64  benutzt  werden.  Es 
ist  zum  Beispiel  möglich,  sich 
Seiten  auf  Diskette  zu  über¬ 
spielen  und  später  wieder 
anzuschauen  oder  Batch- 
Aufrufe  (zum  Beispiel  Wahl¬ 
prozeduren  etc.)  wiederholt 
von  der  Diskette  zu  laden 
und  zu  starten. 

Das  Decodermodul  ist  Te- 
lesoftware-fähig  (siehe  dazu 
unseren  Wettbewerb  in  der 
letzten  Ausgabe).  Software 


kann  so  von  kommerziellen 
Anbietern  zur  ein-  oder 
mehrmaligen  Benutzung  be¬ 
zogen  werden,  oder  auch 
zwischen  Btx-Teilnehmern 
untereinander  ausgetauscht 
werden.  Im  Herbst,  wenn  die 
Entwicklung  zweier  speziel¬ 
ler  Chips  abgeschlossen  ist, 
kann  der  Preis  für  das  Deco¬ 
dermodul  nach  Angaben 
des  Herstellers  unter  500 
Mark  sinken. 

Zusätzlich  soll  dieses  Mo¬ 
dul  die  Auflösung  des  C  64 
auf  480  (600)x240  Punkte  ver¬ 
bessern,  Zudem  kann  es  als 
RAM-Floppy  eingesetzt  wer¬ 
den.  Gerade  durch  die  gro¬ 
ße  Verbreitung  des  C  64  und 
dem  günstigen  Anschaf¬ 
fungspreis  des  Steckdeco¬ 
ders  könnte  hier  die  notwen¬ 
dige  Initialzündung  für  eine 
weite  Verbreitung  von  Btx 
gegeben  werden. 

Drucker 

Auch  bei  den  Druckern 
gab  es  auf  der  Messe  eini¬ 
ges  Neues  zu  bestaunen.  Es 
waren  sogar  Trends  zu  er¬ 
kennen.  Die  Plotter  gehen  ei¬ 
ne  Symbiose  mit  Schreibma¬ 
schinen  ein  (Bild  1).  Panaso¬ 
nic  und  Silver  Reed  stellten 
jeweils  entsprechende  Mo¬ 
delle  vor.  Mit  vier  hochwerti¬ 
gen  Kugelschreiberminen 
schreiben  die  Printer-Plotter 
in  vier  Farben  Texte  und 
Grafiken,  die  auch  miteinan¬ 
der  mischbar  sind. 

Silver  Reed  stellte  bei¬ 
spielsweise  den  Printer-Plot¬ 
ter  EB50  vor.  Der  EB50  be¬ 
sitzt  eine  Centronics-Schnitt- 


Bild  2.  Ein  neuer  Seikosha,  voll  grafikfähig  und  mit  NLQ 
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Bild  1 .  Eine  interessante  Synthese:  Schreibmaschinentastaturen  mit  Plotterfunktionen,  hier  Geräte  von  Silver  Reed  und  Panasonic 


stelle  und  ist  somit  mit  einem 
Interface  an  den  C  64  an¬ 
schließbar.  Auf  einem  16-Zei- 
chen-Display  kann  die  Ein¬ 
gabe  vor  dem  Druck  kontrol¬ 
liert  werden,  Schriftarten 
sind  Courier  und  Italic,  in 
drei  verschiedenen  Größen 
mit  automatischer  Unter¬ 
streichung.  Auch  Balken- 
Kurven-  und  Kuchendia¬ 
gramme  können  (auch  hier 
in  drei  Größen)  mit  einfa¬ 
chem  Tastendruck  gezeich¬ 
net  werden.  Der  Speicher 
für  diese  Grafik  hat  Platz  für 
12  Zahlen,  also  zum  Beispiel 
ausreichend  für  eine  Jahres¬ 
bilanz.  Verarbeitet  wird  nor¬ 
males  DIN-A4-Papier.  Zu  ha¬ 
ben  ist  der  EB50  für  ungefähr 
800  Mark. 

Der  Panasonic  Printer- 
Plotter  RK-P400C  unterschei¬ 
det  sich  vom  EB50  unter  an¬ 
derem  durch  eine  24stellige 
LCD-Anzeige,  10  verschie¬ 


denen  Zeichengrößen,  einer 
RS232C-Schnittstelle  (ein  Ka¬ 
bel  zum  Anschluß  an  den  C 
64  ist  auch  erhältlich)  und  ei¬ 
nem  Preis  von  998  Mark  in¬ 
klusive  Mehrwertsteuer. 

Microscan  stellte  den  neu¬ 
en  Matrixdrucker  Seikosha 
SP-1000VC  vor  (Bild  2),  Seme 
Daten:  direkt  anschließbar 
an  den  C  64  und  die  anderen 
Commodore-Computer  (ein 
Kabel  wird  mitgeliefert). 
Wie  schon  bekannt  von  Sei¬ 
kosha,  besteht 
Kompatibilität  zum  C  64,  das 
heißt,  sämtliche  Steuerzei¬ 
chen  einschließlich  Block¬ 
grafik  sowie  eigendefinierte 
Grafik  bedeuten  keine  Pro¬ 
bleme  beim  SP-1000VC.  Er 
beherrscht  10  verschiedene 
Schriftarten,  mit  100  Zeichen 
pro  Sekunde  im  Normal¬ 
druck  und  bis  zu  20  Zeichen 
pro  Sekunde  bei  Korrespon¬ 
denzqualität  (NLQ  =  Near 


Letter  Quality).  Eine  Grafik¬ 
auflösung  bis  1920  Punkte 
pro  Zeile,  Druckweg-Opti¬ 
mierung  und  bidirektiona¬ 
lem  Druck  sowie  Traktor- 
und  Friktionsantrieb  sind 
hervorzuheben.  Wichtige 
Funktionen  wie  Selbsttest, 
Zeilen-  und  Seitenvorschub, 
linke  und  rechte  Randbe¬ 
grenzung,  Korrespondenz- 
und  Normaldruck,  automati¬ 
scher  Einzelblatteinzug  sind 
über  die  Bediener-Tastatur 
anzuwählen.  Sein 
Preis:  899  Mark  inklusive 
Mehrwertsteuer. 

Es  ist  bezeichnend,  daß 
immer  mehr  Druckerher¬ 
steller  mittlerweile  Drucker 
mit  direktem  Anschluß  an 
den  C  64  anbieten.  So  zum 
Beispiel  Star,  Epson,  Quen- 
Data,  Brother  und  C.Itoh. 

Star  präsentierte  aus  sei¬ 
ner  neuen  Druckerpalette 
den  SG-10C  mit  Commodo- 
re-Anschluß  (Bild  3):  Ge¬ 
schwindigkeit:  120  Zeichen 
pro  Sekunde,  bidirektional 
und  druck  wegoptimiert.  Zei¬ 
chensätze:  Schönschrift 

(NLQ),  je  192  Normal-  und 
Grafikzeichen,  je  90  Italic- 
und  NLQ-Zeichen  und  ein 
frei  definierbares  Zeichen. 
Der  SG-10C  ist  voll  grafikfä¬ 
hig,  mit  einer  Auflösung  von 
7x60  Punkte  pro  Zoll.  Dop¬ 
pelt-  und  dreifachbreiter 
Druck  ist  ebenso  möglich 
wie  Schmalschrift  und  rever- 
se  Schrift.  Die  Papierführung 
ist  für  Einzelblatt  und  Endlos¬ 
papier  ausgelegt.  Der  Preis 
des  SG-10C:  Etwas  mehr  als 
1000  Mark. 

Mit  dem  neuen  Matrix¬ 
drucker  GX-80  liefert  Epson 
einen  leistungsfähigen  und 
mit  unter  1000  Mark  auch 
preiswerten  Drucker  (Bild  4). 


Der  GX-80  benötigt  kein  spe¬ 
zielles  Interface  mehr,  son¬ 
dern  ist  mit  Hilfe  von  ROM- 
Modulen  bereits  fertig  an 
den  betreffenden  Compu¬ 
ter,  unter  anderem  an  den 
C  64,  angepaßt.  Seine  Daten: 
100  Zeichen  pro  Sekunde,  1 
KByte  Puffer  und  ein  Bereich 
für  einen  ladbaren  Zeichen¬ 
satz,  und  neben  dem  norma¬ 
len  Schriftbild  ein  NLQ- 
Zeichensatz  im  ROM.  Mit  32 
internationalen  Sonderzei¬ 
chen  deckt  er  die  länderspe¬ 
zifischen  Schriftarten  ab,  und 
eine  Vielzahl  programmier¬ 
barer  Funktionen  läßt  eine 
vielseitige  Verwendung  zu. 
Der  GX-80  transportiert  Ein¬ 
zelblätter  mittels  Friktions¬ 
antrieb.  Eine  Kassette  für  au¬ 
tomatischen  Einzelblattein¬ 
zug  und  eine  Traktorführung 
für  Endlospapier  sind  —  sehr 
ungewöhnlich  —  optional  er¬ 
hältlich. 

Der  Riteman  C  +  sieht  ganz 
anders  aus,  als  man  es  bis¬ 
her  von  Matrixdruckern  ge¬ 
wohnt  ist.  Das  Papier  (End¬ 
lospapier  oder  Einzelblatt) 
wird  nicht  von  hinten,  son¬ 
dern  von  vorne  in  die  ver¬ 
stellbaren  Traktoren  gelegt 
und  läßt  sich  hinter  dem 
Druckkopf  abtrennen.  Da 
der  Drucker  auf  zwei  hohen 
Stelzen  stehen  kann,  bietet 
sich  unter  dem  Riteman  C  + 
ein  idealer  Platz  an  für  das 
Druckerpapier.  Das  spart  ei¬ 
ne  Menge  Platz  bei  Endlos¬ 
papier  und  ist  auch  für  Eti¬ 
ketten-  und  Einzelblattverar- 
beitung  geeignet.  Der  Druk- 
ker  ist  MPS  801/803-kompati- 
bel.  Die  wichtigsten  Daten: 
105  Zeichen  pro  Sekunde, 
9x9  Matrix  und  grsfikfähig. 
Schriftarten:  Pica,  kompri¬ 
miert,  Proportional,  Breit- 


Bild  3.  NLQ  (Near  Letter  Quality)  setzt  sich  immer  mehr  durch, 
hier  der  Star  SG-10C 


eine  volle,  ileich- 


64er-online.net 


Ausgabe  7  /Juli  198S 


>4  f 

/*4& 


M-iS 


64er-onIine.de 

64er-onIine.net 


Aktuell 


f 


Schriftkombinationen,  Su- 
per-/Subscript,  Unterstrei¬ 
chungen  und  Unterlängen, 
Druckarten:  Standard,  Fett¬ 
druck  und  Doppeldruck,  Er 
besitzt  vier  Internationale 
Zeichensätze  und  82  Grafik¬ 
symbole.  Angeschlossen 
wird  der  Riteman  C  +  wie 
die  Commodore-Drucker 
über  ein  mitgeliefertes  Ka¬ 
bel.  Sein  Preis:  998  Mark  in¬ 
klusive  Mehrwertsteuer. 

Quen-Data  war  mit  einem 
Commodore-kompatiblen 
Matrix-Drucker,  dem  DMP 
1100  VC  vertreten.  Die  wich¬ 
tigsten  Daten:  100  Zeichen 
pro  Sekunde,  deutscher  Zei¬ 
chensatz,  Unterlängen,  hoch¬ 
auflösende  Grafik  und 
Blockgrafik  (640x8  Punkte). 
Die  Traktorführung  ist  ver¬ 
stell-  und  abnehmbar,  aber 
auch  Friktionsantrieb  (für 
Einzelblatt)  ist  vorhanden. 
Preis:  849  Mark  mit  VC-Inter- 
face  und  1048  Mark  mit  VC 
und  Centronics-Interface. 

Mit  der  TC-600  hat  Brother 
eine  elektronische  Schreib¬ 
maschine  auf  den  Markt  ge¬ 
bracht,  die  von  Brother  als 
Handheld-Telekommumka- 
tions-Terminal  bezeichnet 
wird.  Und  in  der  Tat  ermög¬ 
licht  die  TC-600  den  weltwei¬ 
ten  Dialog  mit  allen  Compu¬ 
tern,  die  über  Telefon  er¬ 
reichbar  sind.  Texte  können 
aus  dem  14,3  KByte  Speicher 
mit  300  Baud  gesendet  und 
empfangen  werden.  Sogar 
ein  eigenes  3%-Zoll-Disket- 
tenlaufwerk  ist  erhältlich. 
Und  eine  Steckdose  brau¬ 
chen  Sie  auch  nicht  unbe¬ 
dingt:  Batteriebetrieb  ist 


möglich.  Der  Preis  beträgt 
1365  Mark  plus  169  Mark  für 
das  notwendige  Kabel.  Ei¬ 
nen  ausführlichen  Test  lesen 
Sie  bald  im  64’ei  Magazin. 

Gleich  3  Drucker  von  Citi¬ 
zen  waren  auf  dem  Synelec- 
Stand  zu  sehen.  Der  MSP-10 
(1699  Mark)  und  sein  breite¬ 
rer  Bruder,  der  MSP-15  (2199 
Mark)  präsentierten  sich  im 
wirklich  schönen  Slim-Line- 
Design.  160  Zeichen  pro  Se¬ 
kunde,  NLQ-Schrift  und  vie¬ 
le  Zeichensätze  plazieren 
die  beiden  in  die  gehobene 
Leistungsgruppe.  Im  Low- 
cost-Bereich  bewegt  sich 
der  Citizen  TTP  680  mit  600 
Mark.  Der  Thermodrucker 
erreicht  eine  Druckge¬ 
schwindigkeit  von  50  Zei¬ 
chen  pro  Sekunde  und  kann 
direkt  an  den  C  64  ange¬ 
schlossen  werden. 

Auch  in  bezug  auf  Farbe  tut 
sich  was  auf  dem  Drucker- 
Markt.  Der  Seikosha  GP-700 
hat  ein  VC  hinter  seinen  Na¬ 
men  bekommen,  will  heißen: 
direkt  anschließbar  an  den 
C  64.  Mit  den  vier  Grundfar¬ 
ben  lassen  sich  insgesamt 
sieben  Farben  darstellen. 
Preis:  1198  Mark  inklusive 
Mehrwertsteuer. 

Mit  ungefähr  2300  Mark 
bewegt  sich  der  Farbdruk- 
ker  3510/5520  von  Juki  zwar 
in  einer  anderen  Preisklas¬ 
se,  leistet  jedoch  um  einiges 
mehr.  Mit  180  Zeichen  pro 
Sekunde  wirklich  schnell 
und  mit  weniger  als  60  db(A) 
noch  angenehm  leise,  einem 
2  KByte  Puffer  und  eine  gan¬ 
zen  Menge  an  Schriftarten 
und  Zeichensätzen. 


Bild  4.  Beim  Epson  GX-80  ist  die  Traktorführung  als  Option 
erhältlich 
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Diskettentrends 

Die  Hannover-Messe  zeig¬ 
te  es  ganz  deutlich:  Auf  dem 
Diskettensektor  tut  sich  eini¬ 
ges.  Neue  Technologien  und 
neue  Formate  sind  im  Vor¬ 
marsch.  Dabei  werden  die 
Disketten  immer  kleiner  und 
die  Speicherkapazität  steigt. 

Alle  wichtigen  Disketten¬ 
hersteller  bieten  inzwischen 
3%-Zoll-Disketten  an.  Die 
Entscheidung  von  IBM  (beim 
AT)  für  3%-Zoll  wird  wahr¬ 
scheinlich  den  letzten  An¬ 
stoß  zur  allgemeinen  Einfüh¬ 
rung  dieses  Formates  geben 
(die  anderen  Formate  im 
3-Zoll-Bereich  wie  3,  3%  oder 
3%  dürften  sich  wohl  nicht 
durchsetzen).  Die  3y2-Zoll- 
Diskette  hat  tatsächlich  eini¬ 
ge  Vorteile  gegenüber  dem 
5y4-Zoll-Format:  Sie  ist  handli¬ 
cher,  paßt  in  jede  Hemdta¬ 
sche  und  ist  durch  das  stabi¬ 
le  Gehäuse  mit  der  ver¬ 
schließbaren  Schreib-/Le- 
seöffnung  optimal  gegen 
Verschmutzung  und  Beschä¬ 
digung  gesichert.  Die  Spei¬ 
cherkapazität  steht  dabei 
den  5'Ä-Zoll-Disketten  in 
nichts  nach,  da  durch  den 
bessc  -  --  i  Schutz  der  Ma¬ 
gnetschicht  höhere  Auf¬ 
zeichnungsdichten  möglich 
sind.  Man  darf  gespannt 
sein,  wann  das  erste  3/4-Zoll- 
Laufwerk  für  den  C  64  erhält¬ 
lich  sein  wird. 

Im  Hinblick  auf  neue  Tech¬ 
nologien  scheint  sich  für  die 
Diskette  der  gleiche  Weg 
wie  bei  der  Compact  Casset- 
te  im  HiFi-Sektor  abzuzeich¬ 
nen:  Bei  BASF  setzt  man  auf 
Chromdioxid-  und  Reinei- 
sen-Disketten  zur  Steigerung 
der  Aufzeichnungsdichte 
und  -qualität.  Maxell  plant 
ebenfalls  die  Einführung  ei¬ 
ner  Reineisendiskette  mit  ei¬ 
ner  Kapazität  von  fünf  Mega¬ 
byte  pro  Diskettenseite. 
Auch  von  anderen  Herstel¬ 
lern  wird  dieser  Schritt  in  Er¬ 
wägung  gezogen. 

Auch  optische  Disketten, 
bei  denen  die  Information 
wie  bei  einer  Videoplatte 
per  Laserstrahl  abgetastet 
wird,  sind  für  die  Zukunft 
möglicherweise  auch  im  ge¬ 
hobenen  Homecomputer- 
Bereich  zu  erwarten.  Spei¬ 
cherkapazitäten  um  die  2,6 
Gigabyte,  also  etwa  »10600 
Blocks  free«  —  das  läßt  wohl 
des  Herz  jedes  C  64-Besit- 
zers  höher  schlagen. 

(aa/gk/ev) 


James  Bond  — 
Computerspiel  und  Film 


Eine  große  Fabrik  in  Sunval- 
ley,  die  Computerchips  herstellt, 
soll  in  die  Luft  gesprengt  wer¬ 
den.  Agent  007  (Roger  More)  soll 
dies  verhindern.  Soweit  die  Rah¬ 
menhandlung  des  neuen  James 
Bond-Filmes  »A  View  to  kill«  (Im 
Angesicht  des  Todes).  Der  Film 
wird  am  12.  Juni  in  England  an- 
laufen.  Eine  Woche  vorher,  am  5. 
Juni,  erscheint  ein  Computer¬ 
spiel  der  englischen  Firma  Do- 
mark  zu  diesem  Film. 

Das  Spiel  wird  aus  drei  Teilen 
bestehen,  die  genau  an  die  Film¬ 
handlung  angelegt  sind.  Der  er¬ 
ste  Teil  spielt  in  Paris.  Im  Restau¬ 
rant  des  Eifelturms  wird  in  Ja¬ 
mes  Bonds  Gegenwart  ein  Infor- 
mand  erschossen.  Der  Mörder 
flüchtet  dann  in  einem  Auto  quer 
durch  Paris.  Hier  setzt  der  erste 
Spielteil  ein.  Sie  müssen  als  007 
den  Wagen  verfolgen.  Auf  dem 
Monitor  sehen  Sie  den  Stadtplan 
von  Paris,  auf  dem  die  Position 
Ihres  und  des  anderen  Autos  ge¬ 
kennzeichnet  ist.  Weiterhin  wird 
in  3D-Grafik  der  Ausblick  aus 
dem  Wagen  gezeigt.  Die  Verfol¬ 
gungsjagd  kann  beginnen. 
Schaffen  Sie  diesen  Teil  nicht 
gleich  auf  Anhieb,  langweilig 
wird  das  nächste  Spiel  bestimmt 
nicht.  Der  Fluchtweg  des  Autos 
verändert  sich  mit  jedem  Spiel. 

Haben  Sie  diese  Hürde  ge¬ 
nommen,  erhalten  Sie  ein  Paß¬ 
wort,  das  sich  aus  dem  vorher 
eingegebenen  Namen  und  der 
benötigten  Zeit  ergibt.  Mit  die¬ 
sem  Code  gelangen  Sie  in  den 
nächsten  Teil  des  Spiels. 

Mit  diesem  Teil  gelangen  Sie 
nach  San  Francisco.  Sie  befin¬ 
den  sich  in  einem  brennenden 
Hochhaus.  Dieser  Spielteil  ist 
ein  Arcade-Adventure.  Sie  müs¬ 
sen  in  fünf  Stockwerken  mit  ins¬ 
gesamt  75  Räumen  Hilfsmittel 
suchen,  um  aus  dem  brennen¬ 
den  Haus  zu  entkommen.  Doch 
achten  Sie  darauf:  das  Feuer 
frißt  sich  schnell  weiter  vor. 

Auch  hier  bekommen  Sie  nach 
erfolgreicher  Beendigung  des 
Levels  ein  Paßwort  für  den  drit¬ 
ten  Teil  des  Spieles. 

Im  dritten  Abschnitt  befinden 
Sie  sich  in  einem  Höhlensystem 
unter  dem  Sunvalley.  Sie  müssen 
eine  Bombe  finden,  entschärfen 
und  sie  aus  dem  Höhlensystem 
entfernen.  Ähnlich  wie  bei  Im- 
possible  Mission  müssen  Sie 
vorher  in  verschiedenen  Räu¬ 
men  Aufgaben  lösen.  Dieser  Teil 
ist  unter  anderem  ein  Wettlauf 
gegen  die  Zeit.  Entschärfen  Sie 
die  Bombe  nicht  rechtzeitig,  ist 
Sunvalley  verloren. 

Am  Ende  des  Spieles,  so  ist 
von  Domark  zu  hören,  befindet 
sich  eine  »secret  animated  se- 
quence«.  Genaueres  erfahren 
Sie  in  der  nächsten  Ausgabe. 


Aktuell 


Musik  von  Duron  Duron 

Die  Titelmusik  zum  neuen  Ja¬ 
mes  Bond-Film  stammt  von  Du- 
ran  Duran.  Es  gelang  dem  engli¬ 
schen  Software-Produzenten, 
die  Rechte  an  der  Musik  für  ihr 
Spiel  zu  bekommen.  Ob  die  Um¬ 
setzung  auf  den  C  64  genauso 
gelungen  ist  wie  bei  Ghostbu- 
sters,  bleibt  abzuwarten.  Auch 
dies  erfahren  Sie  in  der  näch¬ 
sten  Ausgabe. 

Bei  dem  Spiel  handelt  es  sich 
übrigens  tatsächlich  um  eine 
Neuentwicklung,  die  sich  auf 
den  neuen  Film  bezieht.  Sie  soll¬ 
te  also  nicht  mit  dem  Spiel  007 
von  Parker  Brothers  verwech¬ 
selt  werden,  das  wohl  als  sehr 
verunglückt  bezeichnet  werden 
konnte  und  keinen  Bezug  auf  ei¬ 
nen  James  Bond-Film  hatte. 

Der  Trend 

Stars  auf  dem  Bildschirm  zu 
haben,  war  schon  immer  das  An¬ 
liegen  der  Filmproduzenten. 
Doch  auch  die  Softwareprodu¬ 
zenten  wollen  sich  ein  Stück  des 
Erfolgskuchens  abschneiden. 
Spätestens  nach  dem  legendä¬ 
ren  Film-,  Musik-  und  (natürlich) 
Softwareerfolg  von  »Ghostbu- 
sters«  wollen  alle  auf  der  Er¬ 
folgswelle  mitreiten.  Nach  dem 
Beginn  der  »Spiel  zum  Buch«- 
Welle  kommt  jetzt  also  auch  die 
»Spiel  zum  Film«-Welle  ins  Rol¬ 
len.  Lizenzen  werden  nicht  nur 
zu  den  Markennamen  der  Stars 
und  zur  Filmhandlung  gekauft, 
sondern  auch  der  Musik.  Erst 
Ghostbusters,  jetzt  Duran  Du- 
rans  James  Bond-Musik.  Doch 
bei  allem  Trend:  Warten  wir  lie¬ 
ber  immer  erst  ab,  ob  das  Spiel 
soviel  Spaß  bringt  wie  das  Anse¬ 
hen  des  Films.  Der  Name  eines 
Stars  macht  noch  lange  kein  gu¬ 
tes  Spiel  aus.  (rg) 

Noch  ein 

Floppy-Beschleuniger 

Das  System  »Floppy-Flash 
1541«  von  Mikrotronic  soll  das  La¬ 
den  und  Speichern  aller  File- 
Typen  auf  dem  Laufwerk  1541 
nach  Angaben  des  Hersteller 
bis  zu  lOmal  schneller  machen. 
Das  System  wird  am  Expansion- 
Port  angeschlossen  (der  durch¬ 
geschleift  ist)  und  bietet  erwei¬ 
terte  DOS-Befehle  auf  Funk¬ 
tionstasten.  einen  speziellen  Re¬ 
set  und  ein  Centronics-Interface 
mit  Hardcopy-Funktion.  Die 
RS232-Schnittstelle  soll  verbes¬ 
sert  worden  sein.  Außerdem  sol¬ 
len  ein  Schnellkopierer  und  eine 
Schreibschutzfunktion  einge¬ 
baut  sein. 

Die  Umrüstarbeiten  sollen  we¬ 
niger  als  5  Minuten  in  Anspruch 
nehmen.  Zum  Preis  von  79  Mark 
ist  eine  Erweiterung  erhältlich, 
die  den  Betrieb  eines  zweiten 
Laufwerks  gestatten  soll.  Außer¬ 
dem  ist  ein  Ein-Minuten-Schnell- 
kopierer  für  39  Mark  lieferbar. 

Info:  Dipl.-Ing.  K.  Roreger,  Liebigsir.  28, 
4780  Lippstadi.  Tel  02238/43556 


VA/W  ruft  alle  mit  Computern  unterversorgten  Schulen  zur  Mitarbeit  auf 


Viele  Schulen  im  Bundesge¬ 
biet  verfügen  noch  nicht  über  ei¬ 
ne  ausreichende  Ausstattung  an 
Computern,  um  ihren  Schülern 

eine  zeitgemäße  Ausbildung  an 
diesen  Systemen  zu  gewährlei¬ 
sten.  In  einigen  Bundesländern 
sind  zwar  bereits  Aktionen  auch 
von  seiten  der  Kultusministerien 
in  Angriff  genommen  worden, 
um  dieser  Unterversorgung  ab¬ 
zuhelfen.  Dennoch  verbleibt  die 
Initiative,  die  jeweilige  Schule 
mit  einer  ausreichenden  Anzahl 
an  Computern  zu  versorgen,  im¬ 
mer  noch  den  Lehrern,  Direkto¬ 
ren,  engagierten  Schülern  oder 
Eltern  Vorbehalten. 

Eines  hat  sich  auf  dem 
Technologie-Forum,  das  im 
März  '85  von  Commodore  veran¬ 
staltet  wurde,  ganz  deutlich  ge¬ 
zeigt:  Der  Computer  wird  sicher 
die  Kreidepädagogik  ersetzen, 
doch  die  Rolle  des  Lehrers  wird 
in  absehbarer  Zeit  nicht  in  Frage 
gestellt  sein.  Deshalb  sind  gera¬ 
de  die  Lehrer,  welche  einen 
»Notstand«  an  ihrer  Schule  er¬ 


kannt  haben,  aber  auch  die,  die 
bisher  noch  mit  einer  gewissen 
Skepsis  und  Reseviertheit  dem 
»neuen  Medium«  Computer  ge¬ 
genüberstanden,  aufgerufen, 
den  Schülern  (und  sich  selbst) 
zeitgerechte  Lehr-  und  Lernmit¬ 
tel  zur  Verfügung  zu  stellen. 

Die  Idee  des  VÄM  (Verein  zur 
beratenden  Aufklärung  über 
die  Mikrocomputertechnologie 
e.V.),  möglichst  in  alle  Schulen  ei¬ 
ne  ausreichende  Anzahl  von 
Computern  zu  bringen,  beruht 
auf  der  sogenannten  Mietpaten¬ 
schaft. 

Dabei  werden  acht  bis  zehn 
spezielle  Schulcomputer  »Leib- 
niz  I«  (momentan  basierend  auf 
dem  C  64,  der  m  Zukunft  aber 
um  einige  Leistungsmerkmale 
wie  Vernetzung  oder  Schnella- 
desysieme  bereichert  werden 
wird)  zur  Verfügung  gestellt. 
Handwerksbetriebe,  Banken, 
Versicherungen,  mittelständi¬ 
sche  Unternehmen  oder  Kauf¬ 
hausketten  in  der  Umgebung 
der  Schule  übernehmen  die 


(monatliche)  Finanzierung  eines 
oder  mehrerer  dieser  Systeme. 

Die  Aktivierung  dieser  Unter¬ 
nehmen  wird  von  den  jeweiligen 
Initiatoren  und  dem  VAM  vorge¬ 
nommen.  Alle  Beteiligten  haben 
von  dieser  Mietpatenschaft  Vor¬ 
teile:  Die  Schulen  kommen  zu  ih¬ 
ren  Computern  und  können  den 
Schülern  zeitgemäßen  Unter¬ 
richt  präsentieren  (nicht  nur  in 
ureigensten  Gebieten  wie  Infor¬ 
matik  oder  Mathematik,  son¬ 
dern  auch  als  unterstützende 
Maßnahmen  für  eine  moderne 
Aufbereitung  der  Lehrinhalte  in 
anderen  Fächern).  Die  Firmen 
der  Umgebung  können  mit 
Schulabgängern  rechnen,  die 
hervorragende  Kenntnisse  m 
den  neuen  Formen  der  Daten- 
ver-  und  bearbeitung  und  der 
Computertechnologie  aufwar¬ 
ten  können.  Für  eine  erste  Kon¬ 
taktaufnahme  steht  der  VAM  be¬ 
reit. 

Info:  VAM,  Rheinallee  6,  5300  Bonn  2, 

Tel.  0228/363571 


Neues  Kopierprogramm  Einbaumodem  auch 

Die  »Orginal  Data  Backup  f(jf  den  C  64 
Box«  ist  ein  40-Spur-Error-Ko-  ,  .... 
pierer  von  Mikrotronic  für  139  ln  Kurze  soll  es  laut  Bundes- 
Mark  auf  Modul,  das  40  Souren  £ost  au?  den  C  64  das  Ein- 
und  Read  Errors  bei  unter-  5a"r'  dfm  geben‘  D®r  Ter2m 
schiedlicher  Synchronisation  der  Einführung  stand  zum  Re- 


kopieren  kann.  Dieses  Modul 
enthält  DOS-Befehle,  Directory- 
Anzeige,  40-Track-Error-Backup 
in  drei  Minuten,  ein  Zwei-Minu- 
ten-Fast-Backup  für  36  Spuren 
und  schnelles  Filecopy  für  unge- 
schütze  Files.  Nach  Angaben 
des  Vertreibers  richtet  sich  die¬ 


daktionsschluß  noch  mcht  fest, 
wohl  aber  der  Preis.  Das  Ein¬ 
baumodem  kostet  pro  Monat  20 
Mark  Miete.  Der  Anschluß  er¬ 
folgt  durch  die  Bundespost.  Ge¬ 
nauere  Angaben  in  emer  der 
nächsten  Ausgaben.  (rg) 


ses  Modul  an  alle  Besitzer  teurer 
Original-Software,  die  Ihre  Dis¬ 
ketten  im  Dauereinsatz  haben. 
Als  »Original  Read-Error  Box« 
wird  für  89  Mark  eine  Version 
angeboten,  die  sich  nicht  auf  die 
Synchronisation  der  Spuren  37 
bis  40  bezieht. 

Info:  Dipl.-Ing.  K.  Roreger.  Liebigstr.  28. 
4780  Lippstadt.  Tel.  02238/43556 

Software  für  Friseure 

Eine  spezielle  Brachenlösung 
für  Friseure  bietet  der  H.G.M. 
Alpenland-Vertrieb  an.  Das  ge¬ 
samte  System,  bestehend  aus  C 
64,  Datenspeicher,  Bildschirm, 
Drucker,  Kassendrucker  und  di¬ 
versen  Programmen  wie  Regi¬ 
strierkassen,  Auswertung  mit 
Leistungsstatistik  für  einen  Sa¬ 
lon  und  50  Mitarbeiter,  Lohn/ 
Grafik.  Hauptprogramm  mit 
ständiger  Inventur  für  Verkauf 
und  Kabinett,  Initialisierung, 
Summierung  und  Kassenzettel 
kostet  4990  Mark.  Die  gesamte 
Anlage  kann  auch  für  eine  mo¬ 
natliche  Gebühr  von  120  Mark 
gemietet  werden. 

Info:  H.G.M.  Alpeniand-Vertrieb,  G  Linder. 
Hauptstraße  43,  8222  Ruhpolding 


Terminal  64  für 

Ascom-Akustikkoppler 

Das  Terminalprogramm  »Ter¬ 
minal  64«  wurde  jetzt  für  den 
Ascom-Akustikkoppler  umge¬ 
setzt  und  ist  ab  sofort  erhältlich. 
Testbericht  siehe  64 'er  Ausgabe 
2/85.  (rg) 

Bezugsquelle:  Dynamics  Marketing 

GmbH,  Große  Bäckerstr.  11,  2  Hamburg  1 


Gerüchte  um  »Eureka« 

Die  Gerüchteküche  in 
Deutschland  kocht.  Es  geht  hier¬ 
bei  um  das  Abenteuerspielpa¬ 
ket  Eureka,  auf  dessen  Lösung 
25000  englische  Pfund  ausge¬ 
setzt  sind.  Gerüchte  wie  »Die 
englische  Veranstalterfirma  Do- 
mark  ist  in  Konkurs  gegangen« 
entsprechen  nicht  der  Wahrheit. 
Zum  Zeitpunkt  dieser  Meldung 
ist  Eureka  noch  nicht  gelöst.  Der 
Preis  ist  also  noch  zu  haben! 
Unter  der  Hotline-Nummer 
0044 1879 11 66  kann  24  Stunden 
lang  der  aktuelle  Stand  abgeru¬ 
fen  werden.  (rg) 


53-KByte- 

Terminalprogramm 

Das  Terminalprogramm  »Ter¬ 
minal  86«  gibt  es  auf  EPROM  und 
stellt  53  KByte  für  die  Datenauf¬ 
nahme  zur  Verfügung.  Eine  stän¬ 
dige  Helpseite  ist  integriert  und 
jederzeit  aufrufbar.  Die  Übertra¬ 
gungsrate  ist  wählbar  zwischen 
300,  600  und  1200  Zeichen  pro 
Sekunde.  Ebenso  kann  man  zwi¬ 
schen  ASCII  oder  deutscher  Ta¬ 
statur  wählen.  Das  Programm 
verfügt  über  einen  eingebauten 
Editor,  die  Parametereinstel¬ 
lung  (Parität,  Voll-  oder  Halbdu¬ 
plex,  etc.)  erfolgt  über  Tasten¬ 
druck  und  kostet  139  Mark. 

Info:  IJC,  Crispinstr.  4,  4600  Dortmund  50 


Neuer  Reparatur¬ 
schnellservice 
in  München 

Reparaturen  innerhalb  eines 
Tages  garantiert  SEP  in  Mün¬ 
chen,  Dabei  sollen  nicht  nur 
Commodore-Systeme  berück¬ 
sichtigt  sein.  SEP  sieht  sich  spe¬ 
ziell  als  Anlaufstelle  für  Schulen, 
die  bisher  Schwierigkeiten  mit 
der  Reparatur  ihrer  Schulcom¬ 
puter  hatten.  Zudem  will  SEP  als 
Anlaufstelle  für  Entwicklungen 
im  Bereich  Software  und  Hard¬ 
ware  für  Schulen  verstanden 
sein.  Neue  Entwicklungen  sol¬ 
len  dort  auf  ihre  Tauglichkeit  für 
den  Schulunterricht  untersucht 
werden. 

Info:  SEP,  Hans-Pinsel-Str.  10b,  8013  Haar  bei 
München.  Tel..  089/4605340 
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Ärger  mit  der  1541 

Ich  habe  einige  Schwierigkei¬ 
ten  mit  meinem  Floppy-Lauf- 
werk.  Wenn  es  längere  Zeit  in 
Betrieb  und  ziemlich  warm  ge¬ 
worden  ist,  nimmt  die  Diskette 
kein  Programm  mehr  an.  Beim 
Speichern  meldet  die  Floppy 
dann  Fehler  20  oder  27.  Das 
Laufwerk  lädt  dann  auch  nicht 
mehr,  auch  keine  Directories 
von  anderen  Disketten.  Nach 
längerem  Abkühlen  kann  wie¬ 
dergeladen  werden,  aber  nicht 
mehr  die  Programme,  die  ich 
vorher  abspeichern  wollte.  Auf 
dem  Laufwerk  ist  noch  Garantie 
und  es  war  auch  schon  zur  Repa¬ 
ratur  beim  Händler.  Der  sagte, 
es  sei  eine  Neueinstellung  vor¬ 
genommen  worden.  Aber  der 
Fehler  tritt  immer  wieder  auf. 
Schadet  es  der  Floppy,  wenn  ich 
einen  Reset  auslöse?  Dabei  läuft 
die  Floppy  kurz  an  und  die  rote 
Lampe  leuchtet.  Josef  Spiertz 

Ihr  Problem  beruht  auf  der 
thermischen  Ausdehnung  von 
Metallen.  Die  Mechanik  des 
Laufwerkes  dehnt  sich  norma¬ 


Fragen  Sie  doch 

Selbst  bei  sorgfältiger  Lek¬ 
türe  von  Handbüchern  und 
Programmbeschreibungen 
bleiben  beim  Anwender  im¬ 
mer  wieder  Fragen  offen. 
Viel  mehr  Fragen  ergeben 
sich  bei  Computer-Interes¬ 
senten,  die  noch  keine  fe¬ 
sten  Kontakte  zu  Händlern, 
Herstellern  oder  Compu¬ 
terclubs  haben.  Sie  können 
der  Redaktion  Ihre  Fragen 
schreiben  oder  Probleme 
schildern  (am  einfachsten 
auf  der  Karte  »Lesermei¬ 
nung«).  Wir  veranlassen,  daß 
sie  von  einem  Fachmann  be¬ 
antwortet  werden.  Allge¬ 
mein  interessierende  Fra¬ 
gen  und  Antworten  werden 
veröffentlicht,  die  übrigen 
brieflich  beantwortet. 


lerweise  nur  minimal  aus.  Bei  Ih¬ 
nen  scheint  der  unglückliche 
Extremfall  vorzuliegen,  daß 
durch  diese  Ausdehnung  der 
Schreib-/Lesekopf  total  verstellt 
wird.  Dann  kann  die  Floppy-Sta- 
tion  weder  Daten  lesen  noch 
schreiben.  So,  wie  bei  Ihnen  ge¬ 
schildert,  darf  dieses  Problem 
aber  unter  normalen  Umstän¬ 
den  nicht  auftreten.  Normaler¬ 
weise  ist  ein  mehrstündiger  Be¬ 
trieb,  solange  nicht  laufend  for¬ 
matiert  wird,  ohne  Probleme 
möglich.  Es  gibt  hier  zwei  Lö¬ 
sungsmöglichkeiten:  Entweder 
Sie  sorgen  für  Kühlung,  indem 
Sie  die  Floppy  »offen«,  das  heißt 
ohne  Gehäusedeckel,  betrei¬ 
ben  oder  einen  Lüfter  verwen¬ 
den.  Die  Alternative  wäre,  daß 
Sie  auf  einen  Umtausch  des 
Laufwerkes  bei  Ihrem  Händler 
bestehen. 

Bei  einem  Reset  am  Computer 
wird  auch  in  der  Floppy  ein  Re¬ 
set  ausgelöst.  Das  hat  keinerlei 
schädliche  Folgen  für  Floppy 
und  Diskette. 

Vizawrite-Hilfe 

Ich  arbeite  mit  einer  engli¬ 
schen  Version  von  Vizawrite 
und  suche  nach  einer  Möglich¬ 
keit,  deutsche  Umlaute  darstel¬ 
len  zu  können. 

Ausgabe  5/85 

Bertram  Hafner 

Der  Zeichenspeicher  bei  Vi¬ 
zawrite  64,  englische  Version, 
beginnt  bei  $3800  und  endet  bei 
$3FFF.  Durch  entsprechende 
POKEs  können  in  diesem  Be¬ 
reich  die  notwendigen  Ände¬ 
rungen  vorgenommen  werden. 
Dies  ist  bei  Ä,Ö,Ü  ohne  weiteres 
möglich,  indem  man  die  Zei¬ 
chencodes  für  die  eckigen 
Klammern  beziehungsweise 
das  Pfundzeichen  entsprechend 
ändert. 

Leider  stößt  ein  ähnliches  Vor¬ 
gehen  bei  den  kleingeschriebe¬ 
nen  Umlauten  ä,ö,ü  sowie  bei  ß 
auf  erhebliche  Schwierigkeiten, 
da  aufgrund  bestimmter  AND- 
Verknüpfungen  innerhalb  des 


Programms  die  Erzeugung  der 
entsprechenden  Zeichencodes 
durch  Tastendruck  verhindert 
wird. 

Ich  selbst  habe  die  notwendi¬ 
gen  Änderungen  in  Vizawrite  64 
unter  großen  Schwierigkeiten 
vorgenommen,  so  daß  nun  auf 
Bildschirm  und  Drucker  alle 
Umlaute  und  ß  in  Verbindung 
mit  der  Commodore-Taste  er¬ 
zeugt  werden  können. 

In  Verbindung  mit  Hypra- 
Load  kann  nun  sogar  die  nervtö¬ 
tende  Ladezeit  um  den  Faktor 
sechs  verkürzt  werden. 

Ich  bin  gerne  bereit,  Besitzern 
des  englischen  Vizawrite  ihr 
Originalprogramm  gegen  eine 
Unkostenvergütung  entspre¬ 
chend  zu  modifizieren. 

Hanno  Hettinger 

Wer  kennt  das  Quick 
Data  Drive? 

Ich  möchte  mir  im  Sommer 
dieses  Jahres  das  Quick  Data 
Drive  von  NCS  zulegen.  Da  die¬ 
se  Floppy-Alternative  noch 
ziemlich  wenig  verbreitet  ist, 
wäre  ich  an  Erfahrungen  ande¬ 
rer  Leser  mit  diesem  System  in¬ 
teressiert.  Marc  Nelles 

Listschutz  geknackt 

In  der  Ausgabe  12/84  des 
64'er-Magazins  wurde  ein  laut 
Äuioi  mknackbarer«  Listschutz 
vorgestellt.  Wer  sein  Programm 
wirklich  wirksam  schützen  will, 
der  sollte  diesen  »Schutz«  aller¬ 
dings  nicht  verwenden.  Er  kann 
nämlich  durch  einen  einfachen 
POKE-Befehl  (POKE  43,82)  au¬ 
ßer  Gefecht  gesetzt  werden. 
Dieser  POKE  bewirkt  ein  Ver¬ 
schieben  des  Basic-Starts,  so 
daß  beim  Listen  die  beiden  Zei¬ 
len,  in  denen  der  Listschutz  akti¬ 
viert  wird,  einfach  übersprun¬ 
gen  werden. 

Der  eben  genannte  POKE  gilt 
zwar  nur  ganz  speziell  für  das 
abgedruckte  Listschutzpro¬ 
gramm,  aber  selbst  ein  mittel¬ 
mäßiger  Hacker  kann  derartige 
Schutzmaßnahmen  leicht 
knacken,  und  sei  es  etwas  auf¬ 
wendiger  mit  einem  Maschinen¬ 
sprache-Monitor. 

Stefan  Pastuszka 

Zum  Thema  Listschutz  errei¬ 
chen  uns  ständig  neue  Zuschrif¬ 
ten.  Viele  Leser  suchen  einen 
guten  Listschutz  für  ihre  Pro¬ 
gramme,  ohne  zu  bedenken, 
daß  ein  abgedruckter  Listschutz 
kein  Schutz  mehr  ist,  denn  aus 
der  Kenntnis  der  Funktionswei¬ 
se  ergibt  sich  fast  zwangsläufig 
auch  die  Möglichkeit,  einen  sol¬ 
chen  Schutz  auch  zu  »knacken«, 
wie  das  obige  Beispiel  beweist. 

Hi-Eddi  mit  CP  80 

Das  wirklich  gute  Grafikpro¬ 
gramm  Hi-Eddi  (Listing  des  Mo¬ 
nats  in  Ausgabe  1/85)  kann  auch 
mit  einem  Melchor  CP  80-Druk- 


ker  Zusammenarbeiten.  Durch 
folgende  Änderungen  im  Hi- 
Print  ist  eine  Druckausgabe  in¬ 
klusive  aller  Sonderfunktionen 
auf  dem  CP-80  mit  Vobis- 
Interface  möglich: 

460  DATA  4 

550  DATA  27,51,21,255,255 
580  DATA  27,75,255,255,255 
Ärgerlich  ist  bei  Hi-Eddi  je¬ 
doch,  daß  man  im  Sprite-Edit- 
Modus  die  gesetzten  Punkte 
nicht  wieder  löschen  kann. 

Bei  meinem  C  64  taucht  noch 
ein  spezielles  Problem  auf:  Di¬ 
rekt  nach  dem  Einschalten  sind 
die  Grafiken  von  verschiedenen 
Spielen  total  verzerrt  und  ver¬ 
schoben.  Nach  einiger  Zeit  gibt 
sich  das  allerdings  wieder  von 
selbst.  Wer  hat  ein  ähnliches 
Problem  oder  kann  mir  helfen? 

Thomas  Küpper 


Wollen  Sie  antworten? 

Wir  veröffentlichen  auf 
dieser  Seite  auch  Fragen,  die 
sich  nicht  ohne  weiteres  an¬ 
hand  eines  guten  Archivs 
oder  aufgrund  der  Sachkun¬ 
de  eines  Herstellers  bezie¬ 
hungsweise  Programmie¬ 
rers  beantworten  lassen.  Das 
ist  vor  allem  der  Fall,  wenn  es 
um  bestimmte  Erfahrungen 
geht  oder  um  die  Suche  nach 
speziellen  Programmen. 
Wenn  Sie  eine  Antwort  auf 
eine  hier  veröffentlichte  Fra¬ 
ge  wissen  —  oder  eine  ande¬ 
re,  bessere  Antwort  als  die 
hier  gelesene,  dann  schrei¬ 
ben  Sie  uns.  Antworten  publi¬ 
zieren  wir  in  einer  der  näch¬ 
sten  Ausgaben.  Bei  Bedarf 
stellen  wir  auch  den  Kontakt 
zwischen  Lesern  her. 


Software  aus  Amerika 

Ich  möchte  für  meinen  C  64 
Programme  direkt  aus  Amerika 
besorgen.  Meine  Frage:  Läuft 
die  in  Amerika  angebotene 
Software  auch  auf  der  europäi¬ 
schen  Version  des  C  64  ?  Ich 
denke  dabei  insbesondere  an 
Probleme,  die  sich  aus  unter¬ 
schiedlichen  TV-Normen  (Pal/ 
NTSC),  Netz-  und  Quarzfrequen¬ 
zen  ergeben  können. 

Ingo  Zeigler 

Fast  die  gesamte  in  Amerika 
angebotene  Software  läuft  völlig 
problemlos  auch  auf  der  euro¬ 
päischen  Version  des  C  64.  Die 
unterschiedlichen  TV-Normen 
bedingen  lediglich  unterschied¬ 
lich  konzipierte  HF-Modulato- 
ren,  haben  jedoch  keinen  Ein¬ 
fluß  auf  die  Software.  Die  unter¬ 
schiedlichen  Netz-  und  Taktfre¬ 
quenzen  dürften  nur  bei  sehr 
wenig  Programmen  wirklich 
Probleme  machen.  Es  läßt  sich 
aber  nicht  pauschal  sagen,  bei 
welcher  Art  von  Programmen 
Schwierigkeiten  auftreten  könn¬ 
ten.  Im  Einzelfall  hilft  leider  nur 
Ausprobieren. 
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Leser  fragen  - 
Willi  Brechtl  antwortet 

Hallo  liebe  Leser,  hier  bin  ich  wieder, 
um  Eure  Fragen 


Ich  werde  mich  hauptsächlich 
um  Leserbriefe  kümmern,  die 
nicht  in  das  sachliche  Einerlei 
des  Leserforums  passen.  Zum 
Beispiel  Fragen,  die  sich  aus 
dem  einen  oder  anderen  Grund 
nur  ganz  subjektiv  beantworten 
lassen.  Oft  genug  tauchen  auch 
Probleme  auf,  die  sich  nicht  mit 
einem  kurzen  Antwortsatz  ab¬ 
handeln  lassen.  Und  wenn 


Hardware-Sorgen 

1.  Kann  ein  Schaden  an  den 
Geräten  (Zentraleinheit,  Floppy 
und  Farbfernseher)  entstehen, 
wenn  ich  sie  alle  drei  a  uf  einmal 
einschalte  oder  muß  ich  erst 
den  Fernseher  einschalten,  war¬ 
ten  bis  ein  Bild  da  ist,  dann  die 
Zentraleinheit  in  Betrieb  setzen 
und  nachher  das  Floppy-Lauf- 
werk  einschalten? 

2.  Was  kann  an  der  Floppy- 
Station  und  der  Diskette  kaputt¬ 
gehen,  wenn  sich  eine  solche 
während  des  Ein-  oder  Aus¬ 
schaltens  im  Laufwerk  befin¬ 
det?  Mir  ist  das  schon  öfter  pas¬ 
siert,  aber  soweit  ist  noch  alles 
ganz. 

3.  Kann  es  sein,  daß  es  den  C 
64  mit  verschiedenen  Betriebs¬ 
systemen  gibt? Mein  Freund  hat 
ein  Spiel  »Popeye«,  das  bei  ihm 
einwandfrei  läuft.  Wenn  wir  es 
aber  bei  mir  spielen  wollen, 
macht  es  immer  einen  Ausstei¬ 
ger. 

4.  Was  kann  an  der  Hardware 
kaputtgehen,  wenn  ich  wäh¬ 
rend  des  Betriebs  ein  Verbin¬ 
dungskabel  löse? 

Michael  Reichel 

1.  Den  Geräten  ist  es  völlig 
egal,  in  welcher  Reihenfolge  sie 
eingeschaltet  werden.  Beson¬ 
ders  bequeme  Menschen  wie 
beispielsweise  die  64’er- 
Redakteure  lösen  das  Einschalt¬ 
problem  besonders  elegant:  Al¬ 
le  Geräte  werden  an  eine  Steck¬ 
dosenleiste  mit  Schalter  ange¬ 
schlossen.  Liegt  diese  auch 
noch  auf  dem  Boden,  läßt  sich 
mit  einem  einfachen  Fußdruck 
die  gesamte  beschriebene 
Hardware  (auch  Drucker)  ein¬ 
schalten.  Vorsicht  ist  allerdings 
bei  älteren  Fernsehgeräten  ge¬ 
boten.  Diese  vertragen  es  teil¬ 
weise  nicht,  wenn  die  Netzspan¬ 
nung  direkt  und  nicht  über  den 
eingebauten  Schalter  gesteuert 
wird. 


zu  beantworten. 

selbst  eine  längere  Antwort  im 
Rahmen  des  Leserforums  nicht 
mehr  ausreichen  würde,  dann 
ist  das  ganz  klar  ein  Fall  für  Willi 
Brechtl. 

Also:  Wenn  Sie  als  Anfänger 
Probleme  mit  Computer,  Soft¬ 
ware  oder  Handbuch  haben, 
dann  wenden  Sie  sich  in  Zukunft 
doch  einfach  vertrauensvoll  di¬ 
rekt  an  mich. 


2.  Am  Floppy-Disk-Laufwerk 
wird  normalerweise  kein  Scha¬ 
den  entstehen.  Disketten  kön¬ 
nen  aber  theoretisch  durch  die 
plötzliche  Spannungsspitze  im 
Gerät  teilweise  gelöscht  wer¬ 
den.  Uns  ist  das  bisher  auch 
noch  nicht  passiert,  trotzdem 
sollte  hier  Vorsicht  geboten  sein. 

3.  Es  gibt  verschiedene  Ver¬ 
sionen  des  64er.  Die  Unterschie¬ 
de  sind  allerdings  minimal  und 
treten  nur  vereinzelt  zu  Tage.  So. , 
gibt  es  mehrere  Ausführungen 
der  CPU,  was  sich  bei  einigen 
sogenannten  »illegealen  Opco- 
des«,  also  eigentlich  nicht  vorge¬ 
sehenen  Maschinenbefehlen 
bemerkbar  macht.  Auch  die 
Bus-,  Sound-  und  Videobaustei¬ 
ne  werden  in  verschiedenen, 
aber  fast  identischen  Versionen 
gefertigt. 

4.  Das  sollte  man  tunlichst  un¬ 
terlassen.  Gerade  die  Busbau- 
steine  in  der  1541-Floppy  sind  da 
sehr  empfindlich.  Besonders  ge¬ 
fährlich  sind  hier  statische  Aufla¬ 
dungen.  Wer  beim  Umstecken 
seine  Floppy  zerstört,  weil  er  in 
geladenem  Zustand  die  Ports 
berührt,  der  darf  mit  Reparatur¬ 
kosten  bis  zu  100  Mark  und  mehr 
rechnen.  Das  gleiche  gilt  für 
Computer  (Serieller  Bus,  Data- 
setten-Anschluß,  Userport  und 
sogar  Joystickanschluß)  und 
Drucker. 

Von  Basic  zur 
Maschinensprache? 

Ist  es  möglich,  ein  Basic- 
Programm  mit  Hilfe  eines  Ma¬ 
schinenprogramms  in  ein  Ma¬ 
schinenprogramm  zu  verwan¬ 
deln?  Wenn  ja,  womit? 

Frank  Wild 

Solche  Programme  gibt  es  tat¬ 
sächlich.  Sie  heißen  »Basic- 
Compiler«.  Ein  solcher  Compi¬ 
ler  übersetzt  ein  Basic-Pro- 


gramm  in  Maschinensprache, 
die  der  Computer  direkt  verste¬ 
hen  und  ausführen  kann.  Derart 
übersetzte  Programme  sind  da¬ 
her  um  einiges  schneller  als  ent¬ 
sprechende  reine  Basic-Pro- 
gramme.  Einen  ausführlichen 
Test  verschiedener  Basic-Com- 
piler  für  den  C  64  finden  Sie  in 
den  64'er-Ausgaben  2/85  und 
4/85. 

Was  ist  der  MSE? 

Ich  verstehe  den  Aufbau  der 
MSE-Sprache  nicht.  Warum  sind 
in  einer  Zeile  jeweils  neun  ver¬ 
schiedene  Befehle? 

Tim  Wensky 

»MSE«  ist  keine  eigene  Com¬ 
putersprache,  sondern  nur  ein 
Eingabesystem  für  Programme 
in  Maschinensprache.  Diese 
werden  in  einer  besonderen 
Form  als  »Hexadezimalzahlen« 
abgedruckt.  Dieses  Zahlensy¬ 
stem  ist  nicht  wie  die  uns  geläufi¬ 
geren  Dezimalzahlen  auf  der  Ba¬ 
sis  10  aufgebaut,  sondern  auf 
der  Basis  16.  Als  zusätzliche  Zif¬ 
fern  werden  dabei  einfach  die 
ersten  Buchstaben  des  Alpha¬ 
bets  genommen.  Statt  dezimal ... 
8,9,10,11,12,13,14,15,16,...  wird  he¬ 
xadezimal  folgendermaßen  ge¬ 
zählt:  ...8,9,A,B,C,D,E,F,10,... 

Jeweils  zwei  Hexadezimalzif¬ 
fern  bm/  m  ein  »Byte«,  also  eine 
Zahl  zwischen  0  und  255  (hexa¬ 
dezimal  00  und  FF).  Ein  Byte  ent¬ 
spricht  also  dem  Inhalt  einer 
Speicherzelle  oder  auch  einem 
Maschinenbefehl.  In  einer  MSE- 
Zeile  stehen  jeweils  acht  Pro¬ 
gramm-Bytes.  Die  letzte  Zahl  ist 
eine  Prüfsumme.  Sie  wird  ver¬ 
wendet,  um  Fehleingaben  in  ei¬ 
ner  Zeile  weitgehend  auszu¬ 
schließen. 

Bitte  lesen  Sie  beim  Abtippen 
von  MSE-Programmen  die  zuge¬ 
hörige  Bedienungsanleitung  be¬ 
sonders  aufmerksam  durch. 
Versuchen  Sie  insbesondere 
nie,  mit  dem  MSE  eingegebene 
Programme  einfach  mit  LOAD 
zu  laden  und  mit  RUN  zu  starten. 
Vielmehr  müssen  Sie  MSE- 
Programme  (wie  alle  Maschi¬ 
nenprogramme)  mit  »LOAD  "na- 
me",8,l«  laden. 

63299  Bytes  free? 

Ich  habe  den  Tip  bekommen, 
daß  die  Befehlsfolge  »POKE 
56,255  :  SYS  58234«  beim  VC  20 
einen  freien  Speicherplatz  von 
über  61000  Bytes  ergeben  soll. 
Ich  habe  nun  diese  Befehlsfolge 
auf  meinem  C  64  eingegeben 
und  erhalte  tatsächlich  nach 
der  Abfrage  »PRINT  FRE(0)  + 
2\16«  die  Antwort  »63229«. 

Sind  diese  63229  Bytes  wirk¬ 
lich  frei  zum  Programmieren 
und  wird  dadurch  auch  keine 
andere  Funktion  beeinflußt? 

Torsten  Niek 


Na,  da  hat  Sie  aber  wirklich  ei¬ 
ner  an  der  Nase  herumgeführt. 
Der  POKE-Befehl  setzt  zwar  (al¬ 
lerdings  nur  rein  rechnerisch) 
die  Speichergrenze  für  den 
Basic-Interpreter  nach  oben, 
aber  sonst  tut  sich  überhaupt 
nichts.  Sie  haben  weiterhin  ihre 
knappen  38  KByte  Basic- 
Speicher,  weil  Sie  mit  einem 
POKE-Befehl  schwerlich 

Hardware-Aufbau  und  Betriebs¬ 
system  eines  Computers  ändern 
können,  Im  Gegenteil,  wenn  Sie 
versuchen  mit  Variablen  zu  ar¬ 
beiten,  kann  das  sogar  zu  einem 
Absturz  des  Computers  führen, 
weil  dieser  verzweifelt  versucht, 
Variableninhalte  im  ROM  abzu¬ 
legen.  Dies  kann  natürlich  nicht 
gut  gehen. 

Der  SYS-Befehl  hinter  dem 
POKE  ist  übrigens  reine  Augen¬ 
wischerei,  denn  der  bewirkt  nur 
einen  Sprung  in  die  NMI-Routi- 
ne,  also  dasselbe,  was  beim 
Drücken  der  Tastenkombination 
RUN/STOP-RESTORE  passiert. 

Eine  Möglichkeit,  noch  mehr 
Basic-Speicher  zu  erhalten,  ist 
die  Verwendung  von  speziellen 
Erweiterungen  wie  das  Busi- 
ness-Basic-Moduls  von  Kingsoft. 
Einen  Test  hierzu  finden  Sie  in 
dieser  Ausgabe. 

Graphics  Basic 
verschenken? 

Ich  interessiere  mich  für  »Gra¬ 
phics  Basic«  zum  C  64  und  habe 
deshalb  folgende  Fragen: 

1.  Kann  man  jetzt,  nachdem  die 
Herstellerfirma  HES  Konkurs 
gemacht  hat,  Kopien  von  Gra¬ 
phics  Basic  unter  Freunden  ver¬ 
teilen  oder  sogar  an  Außenste¬ 
hende  verkaufen  ? 

2.  Wo  kann  man  das  Handbuch 
zu  Graphics  Basic  zwecks  Infor¬ 
mation  bestellen? 

Markus  Emmert,  Sven  Schal 

1.  Gegenfrage:  Wenn  das 
Voikswagenwerk  Konkurs  ange¬ 
meldet  hätte,  würden  Sie  dann 
nach  Wolfsburg  fahren,  sich  ein 
paar  Golfs  aus  dem  Lager  holen 
und  die  Fahrzeuge  unter  Freun¬ 
den  verteilen  oder  an  Außenste¬ 
hende  verkaufen  ? 

Also  nochmals  in  aller  Deut¬ 
lichkeit:  Sie  dürfen  fremde  Soft¬ 
ware,  egal  ob  tatsächlich  kom¬ 
merziell  vertrieben  oder  nicht, 
nicht  ohne  ausdrückliche  Ge¬ 
nehmigung  des  Urhebers  kopie¬ 
ren  und  an  andere  Personen 
weitergeben.  Wenn  Sie  das  Ori¬ 
ginal  haben,  dürfen  Sie  davon 
zwar  Kopien  anfertigen,  aber 
ausschließlich  für  den  eigenen, 
privaten  Gebrauch  (Sicherheits¬ 
kopien).  Sie  dürfen  derartige  Ko¬ 
pien  nicht  verkaufen,  tauschen 
oder  verschenken. 

2.  Da  Graphics  Basic  in 
Deutschland  nicht  mehr  vertrie¬ 
ben  wird,  ist  auch  das  Hand¬ 
buch  nicht  mehr  erhältlich. 


ie.de 

e.net 
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Erster  ausführlicher  Test:  C  1 28 


Teil  2 

Ausgabe 
haben  wir  Ihnen 
die  Eigenschaften  und 
Möglichkeiten  des  C  128 
vorgestellt. 

Diesmal  sollen  Sie 
erfahren,  was  alles 
im  C  128  und  dem 
neuen  Diskettenlaufwerk 
1571  zu  finden  ist, 
und  wie  es  um  das 
Betriebssystem  CP/M 
im  128er  bestellt  ist. 

Bild  1  zeigt  die  Platine  des  C  128. 
Rechts  unten  finden  Sie  die 
wichtigsten  Bausteine  der  gan¬ 
zen  Platine:  den  8502-Prozessor  und 
den  Z80.  Der  8502  wurde  von  Com- 
modore/MOS  für  den  C  128  gebaut. 
In  seinen  Funktionen  entspricht  er 
dem  6510  aus  dem  C  64.  Allerdings 
kann  er  mit  2  MHz  getaktet  werden, 
doppelt  so  schnell  wie  der  6510. 
Durch  den  Z80  »versteht«  der  C  128 
auch  CP/M-Programme.  Sie  können 
dadurch  auch  Programme  wie 
Wordstar  und  Sprachcompiler  (Pas¬ 
cal,  Cobol  und  Ada)  verwenden. 

Rechts  unten  befindet  sich  das 
Gedächtnis  des  C  128:  der  128- 
KByte-RAM-Speicher.  128  KByte 
RAM  erhält  man  durch  Parallel¬ 
schaltung  von  sechzehn  8  KByte/ 
8  Bit  RAMs. 

C  128-Hardware  - 
Bewährtes  und  Neues 

Gleich  oberhalb  der  RAMs  finden 
Sie  die  vier  Betriebssystem-ROMs 
mit  je  16  KByte.  Im  freien  Steckplatz 
für  ein  32-KByte-ROM  wird  in  der 
deutschen  C  128-Version  ein  deut¬ 
scher  Zeichensatz  untergebracht 
sein.  Sie  können  dort  aber  auch  ei¬ 
gene  Betriebssysteme  einstecken. 

Neben  den  ROMs,  die  Bildgene¬ 
ratoren:  Der  RGB-Controller  und 
der  aus  dem  C  64  bekannte  VIC,  der 
für  den  C  128  leicht  überarbeitet 


Bild  7.  Ein  »Röntgenblick«  durch  den  C  128 

wurde.  Normalerweise  befindet 
sich  über  den  beiden  Video-Chips 
ein  Abschirrnblech,  Ebenso  über 
dem  Modulator,  der  ein  Hochfre¬ 
quenzsignal  zum  Anschluß  eines 
Fernsehers  erzeugt.  Im  2-MHz-Mo- 
dus  löst  der  RGB-Controller  den 
VIC,  der  nur  mit  1  MHz  arbeiten 
kann,  ab. 

Rechts  neben  der  »Bildstelle«  be¬ 
findet  sich  der  Sound-Chip,  der  SID. 
Er  ist  identisch  mit  dem  6581  aus 
dem  C  64.  Etwas  weiter  rechts  liegt 
die  MMU,  die  Memory  Manage¬ 
ment  Unit.  Erst  mit  der  MMU  kann 
ein  8502-Prozessor  128  KByte  Spei¬ 
cher  mittels  Bank-Switching  verwal¬ 
ten. 

Die  PLA  (Programmable  Logic 
Array,  vom  Hersteller  programmier¬ 
bare  Logikschaltung)  und  die  CIAs 
(Complex  Interface  Adapter,  hier 
zur  Steuerung  von  Aus-  und  Eingän¬ 
gen  )  haben  im  C  128  fast  die  glei¬ 
chen  Aufgaben  wie  im  C  64.  So  ver¬ 
waltet  die  PLA  den  ROM-Speicher- 
aufbau.  Sie  selektiert  die  vom  Pro¬ 
zessor  benötigten  ROMs  im  Compu¬ 
ter  und  EPROMs  auf  einer  eventuel¬ 
len  Erweiterungskarte.  Die  6526- 
CIAs,  Commodore/MOS-Entwick- 
lungen,  regeln  alles,  was  an  Daten  in 
den  C  128  hinein-  und  hinausgeht. 
CIA  1  übernimmt  die  Auswertung, 
welche  Taste  der  Tastatur  gedrückt 
wurde  und  teilt  dem  Prozessor  mit, 
in  welche  Richtung  ein  Joystick 
weist.  CIA  2  steuert  die  Ein-  und  Aus¬ 


gänge  des  User-Ports  und  des  se¬ 
riellen  IEC-Bus. 

Bild  2  zeigt  das  Blockschaltbild 
des  C  128.  Im  folgenden  soll  kurz 
der  Aufbau  des  Systembusses  er¬ 
läutert  werden. 

1 .  Der  Prozessor-Bus 

Als  Prozessorbus  bezeichnet  man 
den  Adreß-  und  Datenbus.  Der 
Adreßbus  umfaßt  16  Leitungen  A0 
bis  A15,  der  Datenbus  8,  DO  bis  D7. 
Wie  Sie  ja  sicherlich  wissen,  muß 
beim  C  64  em  Datum  (POKE-Wert) 
innerhalb  des  Wertebereichs  von  0 
—  255  liegen.  Aber  nicht  nur  beim  C 
64,  sondern  bei  allen  8-Bit-Compu- 
tern,  da  255  die  größte  mit  8  Bit  dar¬ 
stellbare  Zahl  ist.  Es  sind  deshalb  16 
Adreßleitungen  nötig,  damit  ein  8- 
Bit-Computer  65536  Speicherstellen 
(64  KByte)  ansprechen  kann.  Beide 
Bussysteme  stellen  die  Verbindung 
des  Prozessors  mit  den  ROMs, 
RAMs  und  I/O  (Input/Output>Bau- 
steinen  her.  Der  Prozessorbus  dient 
sowohl  dem  8502,  als  auch  dem  Z80. 
Damit  der  Z80,  der  mit  4  MHz  getak¬ 
tet  wird,  mit  dem  2  MHz-Bussystem 
arbeiten  kann,  wurde  ihm  eine  ent¬ 
sprechende  Interface-Schaltung 
»verpaßt«.  Diese  Schaltung  sorgt  da¬ 
für,  daß  der  Z80  nur  mit  2  MHz  getak¬ 
tet  wird,  wenn  er  auf  den  Bus  zu¬ 
greift. 

2.  Der  Translated  Adress  Bus 

Dieses  Bussystem  wird  von  der 
MMU  generiert.  Das  System  besteht 
nur  aus  den  höherwertigen  Adreß- 
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leitungen  TA8  bis  TA15.  Diese 
Adreßleitungen  benötigt  der  VIC- 
Chip  zum  Zugriff  auf  das  Zeichen¬ 
satz-ROM.  Dazu  legt  die  MMU  TA8 
bis  TA11,  während  der  VIC  arbeitet, 
auf  einen  Tri-State-Pegel,  damit  der 
VTC-Chip  diese  Leitungen  für  sich 
nutzen  kann,  als  VA8  bis  VA15.  Das 
ermöglicht  erst  den  VIC  das  gesam¬ 
te  Zeichen-ROM  zu  adressieren.  Ein 
Zeichen  besteht  aus  8  Byte,  der  Zei¬ 
chensatz  umfaßt  256  Zeichen,  insge¬ 
samt  also  2048  Byte.  Mit  acht  Leitun¬ 
gen  könnte  der  VIC  aber  nur  256  By¬ 
te  adressieren.  Um  aber  2048  Spei¬ 
cherplätze  adressieren  zu  können, 
stellte  eben  die  MMU  dem  VIC 
noch  drei  Tri-State-Leitungen  zur 
Verfügung.  Schaltet  ein  Baustein  ei¬ 
ne  Leitung  auf  Tri-State-Pegel,  ent¬ 
spricht  das  einer  Leitung  die  in  »der 
Luft  hängt«.  Technisch  wird  dazu 
einfach  ein  sehr  hochohmiger  Ab¬ 
schlußwiderstand  in  die  Leitung  ge¬ 
schaltet. 

Eine  andere  Funktion  des  Transla- 
ted  Adress  Bus  ermöglicht  das  Ar¬ 
beiten  des  Z80  auf  dem  8502-Bussy- 
stem.  Im  Z80-Modus  wird  zu  jeder 


Adresse  von  Bank  0  aus  dem  Be¬ 
reich  von  $0000  bis  $0FFF  $D000  ad¬ 
diert,  damit  der  Z80  auf  das  CP/M- 
BIOS  zugreifen  kann.  Normalerwei¬ 
se  liegt  ja  bei  CP/M  das  BIOS  im  Be¬ 
reich  von  $D000  bis  $DFFF  im  RAM- 
Speicher.  Da  aber  die  ganze  C  128- 
Organisation  8502-spezifisch  ist  und 
deshalb  das  BIOS  in  Bank  0  von 
$0000  bis  $0FFF  untergebracht  ist, 
ist  eine  Konvertierung  der  Adressen 
von  $DOOO  bis  $DFFF  auf  $0000  bis 
$0FFF  nötig.  Und  zwar  immer  dann, 
wenn  vom  Z80  auf  das  BIOS  zuge¬ 
griffen  wird.  Die  Adreßkonvertie- 
rung  findet  nur  in  Bank  0  statt,  nicht 
in  Bank  1.  Hier  befindet  sich  die  nor¬ 
male  8502-System-Zeropage. 

Der  Multiplexed  Adress  Bus 
Dieses  Bussystem  sichert  die  Zu¬ 
sammenarbeit  des  VICs  mit  dem 
Prozessor.  Welche  Daten  über  wel¬ 
che  Leitungen  fließen,  bestimmt  das 
MUX-Signal.  Es  wird  von  der  MMU 
über  die  PLA  erzeugt.  Da  die  Erklä¬ 
rung  der  Funktion  des  Multiplexed 
Adress  Bus  hier  zu  weit  führen  wür¬ 
de,  nur  einen  Umriß:  Er  wird  vom 
Prozessor  zur  Adressierung  der  bei¬ 


den  RAM-Bänke  gebraucht,  zur 
Adressierung  der  VIC-Register  und 
für  Zugriffe  des  VIC  auf  das  Farb- 
RAM  und  das  Zeichensatz-ROM. 

Zum  neuen  Computer  gibt  es  auch 
ein  neues  Floppy-Laufwerk,  die 
1571,  die  wir  auch  unter  die  Lupe 
nahmen.  Zum  Test  standen  leider 
keine  Unterlagen  zur  Verfügung. 

Das  1571 -Laufwerk 

Genaue  Aussagen  können  wir 
über  die  Ladegeschwindigkeiten  im 
C  128-  und  C  64-Modus  geben.  Im  C 
64-Modus  hat  sich  nichts  gegenüber 
der  1541  geändert,  im  128er-Modus 
ist  das  Laufwerk  allerdings  7-  bis 
8mal  so  schnell.  So  benötigt  bei¬ 
spielsweise  ein  Hires-Bild  (33  Blök- 
ke  auf  Diskette)  ganze  3,2  Sekunden 
Ladezeit.  Der  Bildschirm  wird  wäh¬ 
rend  des  Ladens  nicht  abgeschaltet. 

Auch  das  Formatieren  geht  sehr 
viel  schneller  als  vorher:  Ganze  40 
Sekunden  werden  zum  doppelseiti¬ 
gen  Formatieren  einer  Diskette  be¬ 
nötigt.  Danach  stehen  1328  Blöcke 


Composite-Video-Teil.  Rechts  der  VIC  8564,  der 
dem  VIC  aus  dem  C  64  beinahe  identisch  ist. 

Er  enthält  einen  eigenen  Grafikprozessor. 


HF-Modulator. 
Hier  wird  ein  Hochfrequenz-Bildsignal 
erzeugt,  das  ein  normaler  Fernseher  »versteht«. 


Der  Video-/Aua!G-Fort  entspricht  dem  des  C  64.  Er 
dient  zur  40-Zeichen-  und  Grafikdarstellung. 


Der  RGB-Ausgang  ist  kompatibel  zu  IBM-Farb-  und 
Schwarzweiß-Monitoren. 
Die  80-Zeichendarstellung  geht  nur  über  diesen  Ausgang. 

User-Port 


rrrhöi 


CIA  2.  I/O-Baustein  für 
den  User-Port  und  den 
seriellen  Bus  — - — 


32  KByte  ROM. 

Frei  für  eigene  ROMs - 

16  KByte  ROM.  C  128, 
Betriebssystem  (Kemal)  und 
40 /80-Zeichene  ditor 
Betriebssystem-  und  Basic- 
ROM  für  den  C  64-Modus.  _ 
16  KByte  ROM 

16  KByte  ROM.  C  128, - 

Basic  Teil  2 

16  KByte  ROM.  C  128, - 

Basic  Teil  1 


128  KByte  ROM. 
16  8-KByte/  “ 
8-Bit-RAMs 


RGB-Teil.  Links  der  80-Zeichen-Videocontroller  8563  (RGB). 
Rechts  unten,  das  l6-KByte/8-Bit-Video-RAM  für  den  8563. 


Der  serielle  Port  des  C  128  entspricht  dem  des  C  64. 
Im  C  128-Modus  arbeitet  er  aber  etwa  8mal  schneller. 


2  KByte-Zeichensatz-ROM 

2-KByte/8-Bit-CMOS-RAM.  Der  Farbspeicher  für  den  VIC  8564 


Expansion-Port  für  den 
C  64-  und  C  128-Modus. 


Entprell-Kondensatoren  für 
Tastatur  und  Control-Ports 


Änschlußleiste 
für  die  Tastatur 


Netzteilanschluß 

Ein-/Ausschalter 

Reset-Taster 


Die  MMU  bestimmt  auf 
welchen  Speicherteil  der 
nächste  Zugriff  stattfinden 
soll. 


Control-Port  1  und  2 
zum  Anschluß  von 
Joysticks  etc. 


Der  inzwischen 
schon  altbekannte 
SID,  der  6581  aus 
dem  C  64. 


Ohne  ihn  wäre  kein  CP/M  denkbar:  Der  Z80-Prozessor. 


CIA  1  (Complex  Interface  Adapter),  ein  6526 
von  Commodore/MOS.  Die  Schaltung  wird  zum 
»Anschluß«  der  Tastatur  und  der  Joysticks  benötigt. 


Die  PLA,  ein  8721.  Die  PLA  ist  ein  Gatterbaustein  mit  programmierbaren  Logikfunküonen.  Das  Herz  des  c  128‘  und  c  64-Modus:  Der  8502-Prozessor. 

Sie  bestimmt,  neben  der  MMU,  welche  ROMs  aktiviert  werden. 


Bild  1.  Die  Platine  des  C  128.  Das  Abschirmblech  des  RGB-  und  Composite-Videoteils  wurde  abgenommen.  Ebenso  das  des  Modulators. 
Über  der  gesamten  Platine  liegt  nochmals  ein  Abschirmdeckel,  der  auch  als  Kühlkörper  für  die  ICs  verwendet  wird. 
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6502-Prozessor, 
der  der  1571  die 
»Intelligenz«  gibt. 


251828-Contxoller 


6526-CIA. 

Dieser  Baustein  regelt, 

,wie  im  C  64  und  C  128 
auch,  die  Speicherzugriffe 


Die  Schreib-/Lese-Mechanik. 

Im  Gegensatz  zur  1541  sind  zwei  Köpfe 
vorhanden,  die  eine  Diskette  beidseitig 
beschreiben  und  lesen  können. 


WD1770-Controller. 
Er  wird  mit  einem 
entsprechenden 
Utility-Programm  so 
programmiert,  daß 
die  Floppy-Station 
CP/M-Disketten  von 
anderen  Computern 
lesen  kann. 


Port-Anschlüsse 


3522-V1A. 


I/O-Baustem 


für  den 


Controller 


DIP-Schalter. 

Hier  kann  die  Floppy_ 
auf  verschiedene 
Geräteadressen 
umgeschaltet  werden. 

6522-VIA. 

Programmierbarer  Ein-/ 
Ausgabe-Baustein  für 
den  seriellen  Bus. 

DOS-ROM,  das 
Betriebssystem  der  1571 


2-KByte/8-Bit-RAM.  Der 
»Floppyspeicher«,  der 
auch  von  Ihnen  genutzt 
werden  kann. 


Bild  3.  Das  Innenleben  des  1571-Floppy-Laufwerks. 
Im  vorderen  Teil  die  ganze  Mechanik  zur  Steuerung 
des  Schreib/Lesekopfes,  im  hinteren  die  Elektronik, 
die  normalerweise  vom  Netzteil  verdeckt  ist. 


zur  freien  Verfügung,  also  die  dop¬ 
pelte  Speicherkapazität  einer  1541- 
formatierten  Diskette.  Noch  eins  fällt 
beim  Formatieren  auf:  das  Rattern 
entfällt.  Den  Grund  dafür  entdeck¬ 
ten  wir  nach  dem  Aufschrauben  der 
1571:  Der  mechanische  Anschlag 
zur  Kopfpositionierung  wurde  durch 
eine  Lichtschranke  ersetzt.  Die  Me¬ 
chanik  macht  allgemein  einen  sehr 
guten  und  stabilen  Eindruck.  Inter¬ 
essant  ist  auch,  daß  eine  weitere 
Lichtschranke  zur  Abfrage  des  In¬ 
dexloches  vorhanden  ist.  Alle 
Schreib-/Lesevorgänge  funktionier¬ 
ten  nämlich  auch  mit  Disketten,  die 
kein  Indexloch  hatten.  Eine  Ausnah¬ 
me  könnte  der  CP/M-Modus  sein, 
wenn  Disketten  anderer  Formate 
verwendet  werden.  Dies  konnten 
wir  aber  mit  dieser  Version  nicht  te¬ 
sten,  da  der  Floppy-Controller  noch 
nicht  auf  andere  Diskettenformate 
programmiert  werden  konnte. 

Auch  die  Elektronik  zeigt  sich  von 
einer  guten  Seite.  Auf  der  sehr  sau¬ 
ber  aufgebauten  Platine  sind  ge¬ 
genüber  der  1541  einige  Chips  hin¬ 
zugekommen,  über  deren  Funktion 
teilweise  nur  spekuliert  werden 
konnte.  So  ist  zum  Beispiel  eine 
6526-CIA  und  ein  WD1770-Control- 
ler  vorhanden  (Bild  3). 


Das  alte  1541-Problem  der  Wär¬ 
meabfuhr  wurde  bei  der  1571  ge¬ 
löst.  Das  ohnehin  schon  recht  »kalte« 
Netzteil  ist  völlig  von  der  Floppyme- 
chanik  getrennt.  Es  können  also 
kaum  mehr  Schreib-/Leseprobleme 
auftreten,  die  auf  eine  Wärmelei¬ 
tung  vom  Netzteil  auf  die  Floppyme- 
chanik  zurückzuführen  sind. 

Wie  der  C  128  hat  auch  das  Flop- 
py-Laufwerk  einen  Modus,  der  ein 
früheres  Commodore-Gerät,  die 
1541,  simulieren  soll.  Hier  gab’s,  zu¬ 
mindest  bei  unserer  Vörabversion, 
noch  einige  Probleme.  Es  ist  des¬ 
halb  die  Serienversion  abzuwarten, 
will  man  ein  endgültiges  Urteil  ab¬ 
geben.  Eine  Kleinigkeit  ist  uns  noch 
sehr  positiv  aufgefallen:  An  der 
Rückseite  befinden  sich  zwei  kleine 
DIP-Schalter,  mit  denen  die  Geräte¬ 
adresse  der  Floppy  auf  Werte  zwi¬ 
schen  8  und  11  geändert  werden 
kann.  Es  wird  also  auch  für  absolute 
Anfänger  ein  problemloser  Betrieb 
mit  mehreren  Laufwerken  möglich 
sein. 

Der  CP/M-Modus 

Der  C  128  ist  der  erste  Commodo- 
re-Computer,  der  von  Haus  aus  be¬ 
reits  CP/M-fähig  ist.  Mit  diesem  Be¬ 
triebssystem  steht  dem  Anwender 


die  ganze  Welt  der  CP/M-Software 
zur  Verfügung,  was  insbesondere 
beim  mehr  professionell  orientier¬ 
ten  Anwender  ein  starkes  Argument 
für  den  C  128  darstellen  dürfte.  Al¬ 
lerdings  wurde  dieser  Vorteil,  wie 
beschrieben,  mit  einem  immensen 
technischen  Aufwand  erkauft.  Wäh¬ 
rend  ein  reiner  Z80-Computer  mit 
CP/M  in  der  Regel  überhaupt  keine 
Probleme  hat  (System  in  den  Spei¬ 
cher  laden  —  fertig),  sind  beim  C  128 
eine  Vielzahl  soft-  und  hardware¬ 
mäßiger  Probleme  zu  lösen. 

Bei  dem  uns  zur  Verfügung  ste¬ 
henden  Testgerät  war  denn  auch 
das  CP/M-System  noch  nicht  in  der 
endgültigen  Version  implementiert. 
Insbesondere  die  Ladegeschwin¬ 
digkeit  unter  CP/M  ließ  noch  sehr  zu 
wünschen  übrig.  Die  Ladezeit  für 
das  CP/M-System  selbst  betrug  in 
der  (vorläufigen)  Version  ziemlich 
genau  45  Sekunden.  In  der  endgülti¬ 
gen  Version  wird  die  Geschwindig¬ 
keit  allerdings  deutlich  höher  lie¬ 
gen,  so  daß  ein  sinnvolles  Arbeiten 
möglich  wird. 

Wer  bisher  nur  mit  dem  C  64  gear¬ 
beitet  hat,  dem  stehen  bei  der  Um¬ 
stellung  auf  eine  CP/M-fähige  Ma¬ 
schine  natürlich  einige  Umstellun¬ 
gen  bevor. 
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Die  Bezeichnung  CP/M  steht  für 
»Control  Program  for  Microcompu- 
ters«,  also  einfach  für  ein  —  inzwi¬ 
schen  weitverbreitetes  —  Betriebs¬ 
system  für  Mikrocomputer.  CP/M 
wurde  bereits  1974  von  Gary  Kildall 
bei  Intel  entwickelt  und  diente  ur¬ 
sprünglich  als  Dateiverwaltungs-Sy- 

Was  ist  CP/M? 

stem  für  einen  von  Intel  vertriebe¬ 
nen  Compiler  für  die  Programmier¬ 
sprache  PL/M.  Seit  1975  wird  CP/M 
als  allgemeines  Betriebssystem 
kommerziell  angeboten  und  ständig 
weiterentwickelt.  Das  Erfolgsrezept 
von  CP/M  heißt  »Standard«. 

Da  jeder  Hersteller  eines  Mikro¬ 
computers  in  der  Regel  sein  eige¬ 
nes  Betriebssystem  einbaut,  erge¬ 
ben  sich  sehr  große  Probleme  bei 
der  Übertragung  von  Programmen 
und  Daten  zwischen  verschiedenen 
Computern.  Wer  schon  einmal  ver¬ 
sucht  hat,  ein  VC  20-Programm  an 
den  C  64  anzupassen  (oder  umge¬ 


Code  Funktion 

0  System-Kaltstart 

1  Zeichen  von  Tastatur  holen 

2  Zeichen  auf  Bildschirm  ausgeben 

3  Zeichen  von  externem  Gerät 
holen 

4  Zeichen  an  externes  Gerät 
senden 

5  Zeichen  an  Drucker  senden 

6  Direkte  Ein-/Ausgabe  über 
Konsole 

7  I/O-Zuordnung  holen 

8  I/O-Zuordnung  festlegen 

9  String  auf  Bildschirm  ausgeben 

10  String  von  Tastatur  einiesen 

1 1  Feststellen,  ob  Taste  gedrückt 

12  Liefert  Versionsnummer  des 
CP/M-Systems 

1 3  Reset  des  Diskettensystems 

1 4  Laufwerk  auswählen 

15  Datei  öffnen 

16  Datei  schließen 

1 7  Datei  auf  Diskette  suchen 

18  Zweite  Datei  suchen 

19  Datei  löschen 

20  Nächsten  Block  lesen 

2 1  Nächsten  Block  speichern 

22  Neue  Datei  erzeugen 

23  Dateinamen  ändern 

24  Angesprochene  Laufwerke 
feststellen 

25  Aktuelles  Laufwerk  feststellen 

26  DMA-Pufferadresse  festlegen 

27  Bit-Map-Adresse  holen 

28  Schreibschutz  setzen 

29  Schreibschutzinformation  holen 

30  Datei-Attribute  setzen 

3 1  File-Parameter-Adresse  holen 

32  USER-Nummer  setzen 

33  Daten  von  Diskette  lesen 

34  Daten  auf  Diskette  schreiben 

35  Dateigröße  feststellen 

36  Datensatzadresse  holen 

Tabelle  1 .  Die  CP/M-Funktionsaufrufe 
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kehrt),  der  weiß,  wovon  hier  die  Re¬ 
de  ist. 

Das  CP/M-Betriebssystem  tritt 
nun  als  Vermittler  zwischen  Anwen¬ 
derprogramm  und  Hardware  auf. 
Beispielsweise  fragt  ein  CP/M-Pro- 
gramm  niemals  die  Tastatur  direkt 
ab,  denn  die  kann  ja  infolge  unter¬ 
schiedlicher  Hardware  von  Compu¬ 
ter  zu  Computer  anders  konzipiert 
und  angesteuert  sein.  Statt  dessen 
ruft  das  Anwenderprogramm  eine 
Routine  im  CP/M-System  auf,  die  die 
gewünschte  Funktion  ausführt.  Na¬ 
türlich  muß  das  CP/M-System  für 
jeden  Computer  an  die  spezielle 
Hardware  angepaßt  werden,  aber, 
und  das  ist  das  Entscheidende,  die 
Anwenderprogramme  laufen  un¬ 
verändert,  da  sie  ja  nicht  direkt  auf 
die  Hardware  zugreifen. 

Da  alle  CP/M-Programme  gene¬ 
rell  im  gleichen  Speicherbereich 
liegen,  treten  kaum  Probleme  bei 
der  Übertragung  von  einer  CP/M- 
Maschine  zur  anderen  auf. 

_  Grundvoraussetzung  für  die 
Übertragbarkeit  von  Software  ist  al¬ 
lerdings  die  Verwendung  des  glei¬ 
chen  Mikroprozessors  in  allen  CP/ 
M-Computern.  Die  Wahl  fiel  bei  In¬ 
tel  nicht  schwer:  Der  8080  aus  dem 
eigenen  Hause  wurde  zum  CP/M- 
Prozessor  gekürt.  Der  Fairneß  hal¬ 
ber  muß  man  allerdings  zugeben, 
daß  der  8080  damals  (Mitte  der  sieb¬ 
ziger  Jahre)  tatsächlich  einer  der  lei¬ 
stungsfähigsten  Mikroprozessoren 
überhaupt  war. 

Heutzutage  wird  allerdings  fast 
ausschließlich  der  Z80  verwendet, 
der  voll  aufwärtskompatibel  zum 
8080  ist,  aber  über  einen  stark  er¬ 
weiterten  Befehlsvorrat  und  mehr 
interne  Register  verfügt.  Wer  sich 
ernsthaft  für  CP/M  interessiert,  der 


sollte  sich  daher  mit  diesem  Prozes¬ 
sor  vertraut  machen. 

Der  Z80-Prozessor 

Im  Gegensatz  zur  6502-Prozessor- 
familie  (zu  der  auch  der  6510  im  C  64 
und  der  8502  im  C  128  gehört)  han¬ 
delt  es  sich  beim  Z80  ebenso  wie 
beim  Vorgänger  8080  um  eine  soge¬ 
nannte  »registerorientierte  CPU«. 
Das  bedeutet,  daß  der  Z80  über  ei¬ 
ne  größere  Anzahl  interner  Register 
verfügt,  die  sowohl  als  Daten-  wie 
auch  als  Adreßregister  benutzt  wer¬ 
den  können  (Bild  5). 

Insgesamt  stehen  dem  Benutzer 
sechs  allgemeine  16-Bit-Register 
(BC,  DE,  HL,  BC,  DE',  HL)  zur  Verfü¬ 
gung,  die  wahlweise  auch  als  zwölf 
8-Bit-Register  angesprochen  wer¬ 
den  können.  Daneben  gibt  es  zwei 
Akkus  und  ebenfalls  zwei  Flag-Regi¬ 
ster,  zwei  16-Bit-Indexregister  (IX 
und  IY),  einen  16-Bit-Stackpointer 
(SP)  und  natürlich  einen  Programm¬ 
zähler  (PC).  Zwei  weitere  Register, 
das  Inter rupt-Vektor-Register  I  und 
das  Refresh-Kontroll-Register  R  ha¬ 
ben  spezielle  Funktionen. 

Die  Register  AF,  BC,  DE  und  HL 
bilden  die  sogenannten  Primärregi¬ 
ster,  die  vom  8080  übernommen 
wurden  und  die  in  erster  Linie  di¬ 
rekt  angesprochen  werden  können, 
Mit  speziellen  Befehlen  kann  zwi¬ 
schen  diesen  Primärregistern  und 
den  »Sekundärregistern«  AF’,  BC’, 
DE’  und  HL  umgeschaltet  werden. 
Die  Indexregister  IX  und  IY  haben 
ähnliche  Aufgaben  wie  die  6502-Re- 
gister  X  und  Y,  sind  jedoch  16  Bit 
breit. 

Der  Z80-Befehlssatz  ist  sehr  um¬ 
fangreich  und  umfaßt  unter  ande¬ 
rem  auch  16-Bit-Arithmetik,  Block¬ 
verschiebebefehle,  automatische 
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Bild  4.  Die  Tastatur  ist  funktionell  und  ergonomisch  aufgebaut.  Der  deutsche  Zeichensatz 
wird  durch  die  Umschalttaste  ASCII/DIN  erreichbar.  Die  Belegung  der  Tasten  entspricht 
dann  den  DIN-Normen.  Die  Bezeichnungen  sind  bereits  auf  den  Tastenkappen  auf¬ 
gedruckt.  Durch  diesen  Zeichensatz  ergibt  sich  teilweise  eine  fünffache  Belegung  einzelner 
Tasten.  Doch  diese  Tatsache  wird  dann  gerechtfertigt,  wenn  es  speziell  auf  den  deutschen 
Markt  zugeschnittene  Textverarbeitungsprogramme  geben  wird  (und  vielleicht  auch  einen 
Drucker  von  Commodore,  der  die  deutschen  Umlaute  von  Haus  aus  beherrscht). 
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Such-  und  Ein-/Ausgabebefehle,  be¬ 
dingte  Unterprogrammaufrufe  so¬ 
wie  Einzelbitbefehle.  Insgesamt 
kennt  die  Z80-CPU  über  700  Opco- 
des.  Um  diese  vielen  Maschinenbe¬ 
fehle  verschlüsseln  zu  können  (mit 
einem  Befehlsbyte  können  nur  256 
Befehle  codiert  werden),  gibt  es  ei¬ 
nige  spezielle  »Umschaltopcodes«, 
die  einfach  bewirken,  daß  der  Z80 
intern  auf  eine  andere  Befehlstabel¬ 
le  umschaltet  und  das  nächste  Be¬ 
fehlsbyte  in  einer  anderen  Form  in¬ 
terpretiert. 

Nach  diesem  kurzen  Ausflug  zum 
Z80  jetzt  jedoch  wieder  zum  CP/M- 
Betriebssystem.  Beim  Studium  von 
Handbüchern  und  CP/M-Literatur 
stößt  man  immer  wieder  auf  vier  Ab¬ 
kürzungen:  BIOS,  BDOS,  CCP  und 
TPA.  Hinter  diesen  Bezeichnungen 
verbergen  sich  die  wichtigsten  Be¬ 
standteile  eines  CP/M-Systems. 

BIOS  steht  für  »Basic  Input  Output 
System«,  hat  aber  absolut  nichts  mit 
der  Programmiersprache  Basic  zu 
tun.  Die  Bezeichnung  deutet  ledig¬ 
lich  an,  daß  es  sich  hierbei  um  eine 
Sammlung  grundlegender  Routinen 
zur  Ein-/Ausgabe  von  Daten  handelt. 

Das  CP/M-BIOS  entspricht  von 
der  Funktion  her  ziemlich  genau 
den  Kernal-Routinen  bei  Commodo- 
re-Computern.  Der  gesamte  Kon¬ 
takt  eines  Anwenderprogramms  mit 


der  Hardware-Umgebung  läuft 
über  diese  Routinen,  Alle  BlOS-Rou- 
tinen  werden  indirekt  über  das 
BDOS,  das  Basic  Disk  Operating  Sy¬ 
stem,  durchgeführt.  Der  Aufruf  aller 
Systemroutinen  geschieht  durch  ei¬ 
nen  Unterprogrammsprung  zur 
Adresse  5,  dem  sogenannten  BDOS- 
CALL.  Die  verschiedenen  geforder¬ 
ten  Funktionen  werden  dadurch  se¬ 
lektiert,  daß  im  C-Register  des  Z80 
ein  Funktionscode  übergeben  wird. 
Die  Routine  ab  Adresse  5  verzweigt 
dann  abhängig  vom  Inhalt  des  C-Re- 
gisters  zu  den  verschiedenen  BIOS- 
Funktionen  (Tabelle  1). 

Diese  beiden  Teile  des  CP/M-Sy¬ 
stems,  BIOS  und  BDOS,  werden 
beim  »Booten«,  also  beim  Laden  des 
Systems  von  der  Diskette,  einmal  in 
den  Speicher  geholt  und  bleiben 
dann  ständig  resident  vorhanden. 

Für  den  Kontakt  zwischen  CP/M 
und  Anwender  sorgt  der  »Console 
Command  Processor«  (CCP).  Es 
handelt  sich  dabei  um  einen  einfa¬ 
chen  Kommando-Interpreter,  der 
über  die  Tastatur  eingegebene 
CP/M-Kommandos  erkennt  und 
ausführt.  Mit  CP/M-Kommandos  hat 
es  dabei  eine  besondere,  grundle¬ 
gende  Bewandtnis.  Hierzu  ist  es 
wichtig  zu  wissen,  daß  Dateinamen 
unter  CP/M  aus  zwei  TeilUn  beste¬ 
hen,  der  eigentlichen  Dateibezeich¬ 


nung  (acht  Zeichen  Länge)  und  der 
Namenserweiterung  (»Extension«, 
drei  Zeichen  Länge).  Diese  Erweite¬ 
rung,  die  durch  einen  Punkt  vom  ei¬ 
gentlichen  Namen  abgetrennt  wird, 
gibt  den  Typ  der  Datei  an. 

Kommandostruktur 

Besonders  wichtig  ist  der  Dateityp 
»COM«.  Wenn  ein  Dateiname  die  Er¬ 
weiterung  COM  hat,  dann  stellt  sie 
ein  CP/M-Kommando  dar.  Das  funk¬ 
tioniert  folgendermaßen:  Wenn  der 
Benutzer  ein  Kommando  eingibt, 
dann  sucht  der  CCP  auf  der  Disket¬ 
te  nach  einer  COM-Datei,  die  den 
Namen  des  Kommandos  trägt.  Die¬ 
se  Datei  wird  dann  geladen  und  ge¬ 
startet,  mit  anderen  Worten,  die  Da¬ 
tei  ist  das  Kommando. 

Will  man  beispielsweise  das  Di¬ 
rectory  der  Diskette  sehen,  dann 
gibt  man  den  Befehl  DIR  ein.  Der 
CCP  sucht,  lädt  und  startet  darauf¬ 
hin  das  Programm  »DIR.COM«,  das 
wiederum  das  Inhaltsverzeichnis 
der  Diskette  ausgibt.  Derartige 
Kommandos  heißen  »transiente 
Kommandos«,  weil  sie  eben  nicht 
fest  eingebaut  sind,  sondern  nur  bei 
Bedarf  geladen  werden.  Der  für 
transiente  Kommandos  reservierte 
Speicherbereich  heißt  »Transient 
Program  Area«  (TPA),  womit  auch 
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aber  dürfte  es  von  entscheidender 
Bedeutung  sein,  ob  die  Hersteller 
von  CP/M-Software  willens  sind,  die 
Preise  für  ihre  Produkte,  die  sich 
teilweise  noch  im  vierstelligen  Be¬ 
reich  befinden,  drastisch  zu  senken. 

Die  Chancen  dafür  stehen  nicht 
schlecht,  denn  nachdem  CP/M  im 
professionellen  Bereich  inzwischen 
durch  MS-DOS,  ein  16-Bit-Betriebs- 
system,  abgelöst  worden  ist,  sollten 
die  CP/M-Hersteller  eigentlich 
schon  an  neuen  Märkten  interes¬ 
siert  sein,  und  diese  neuen  Märkte 
könnten  durchaus  im  oberen  Home- 
Bereich  liegen,  Wenn  die  Software 
jedoch  teurer  als  der  Computer  ist, 
dürfte  wohl  kein  Geschäft  zu  ma¬ 
chen  sein,  aber  beispielsweise 
Wordstar  für  298  oder  gar  für  198 


die  vierte  der  oben  angesproche¬ 
nen  Abkürzungen  geklärt  wäre.  Je¬ 
des  CP/M-System  verfügt  auf  der 
Systemdiskette  über  eine  Standard- 
Bibliothek  von  wichtigen  transienten 
Kommandos.  Dazu  gehören  in  der 
Regel  Kommandos  zum  Ändern  von 
CP/M-Parametern,  zum  Kopieren, 
Löschen,  Listen  und  Umbenennen 
von  Dateien  und  ähnliches,  was  man 
zum  sinnvollen  Arbeiten  mit  einer 
Diskettenstation  benötigt. 

Natürlich  ist  es  möglich,  diesen 
Befehlsvorrat  zu  erweitern,  indem 
man  entsprechende  Assemblerrou¬ 
tinen  schreibt  oder  auch  emen  Com¬ 
piler  einsetzt.  Einzige  Bedingung 
für  transiente  Kommandos  ist  die 
Lauffähigkeit  des  Maschinenpro¬ 
gramms  in  der  TPA.  Generell  sind 
alle  CP/M-Anwenderprogramme 
transiente  Kommandos.  Das  Text¬ 
verarbeitungsprogramm  Wordstar 
heißt  unter  CP/M  zum  Beispiel 
»WS.COM«  und  wird  einfach  mit  dem 
Kommando  »WS«  aufgerufen. 

Mit  dem  CP/M-Betriebssystem 
hat  der  C  128-Benutzer  Zugriff  auf 
das  größte  Softwareangebot  der 
Welt.  Immerhin  werden  bereits  seit 
zehn  Jahren  CP/M-Programme  ent¬ 
wickelt  und  immer  weiter  verbes¬ 
sert.  Textverarbeitung,  Datenban¬ 
ken,  Tabellenkalkulation  stehen  in 
großer  Auswahl  ebenso  zur  Verfü¬ 
gung  wie  spezielle  Branchenlösun¬ 
gen  für  den  kommerziellen  Einsatz. 
Statistik-Pakete,  mathematische  und 
naturwissenschaftliche  Software  ist 
in  Mengen  erhältlich.  Wer  selber 
programmieren  will,  der  findet  un¬ 
ter  CP/M  ein  Angebot  an  Program¬ 
miersprachen,  das  von  Fortran  und 
Cobol  über  Pascal  bis  zu  Ada  und 
Lisp  reicht.  Unter  CP/M  gibt  es  so 
ziemlich  alles,  was  auch  auf  Groß¬ 
rechnern  läuft. 
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Bild  6. 

Das  neue  1571- 

Laufwerk  präsen¬ 
tiert  sich  im 
Slime-Line-Format. 

Allerdings  soll  nicht  verschwie¬ 
gen  werden,  daß  trotz  Standard  und 
Kompatibilität  gewisse  Probleme 
auftreten  können.  So  muß  CP/M- 
Software  generell  erst  einmal  an  ei¬ 
nen  speziellen  Computer  angepaßt 
werden.  Das  erledigt  ein  zu  jeder 
Software  gehöriges  sogenanntes  In¬ 
stallations-Programm,  das  zum  Bei¬ 
spiel  die  Tastaturbelegung,  Bild- 
schirmansteuerung  etc.  abfragt,  um 
beispielsweise  ein  Textprogramm 
optimal  auf  den  jeweüigen  Compu¬ 
ter  einstellen  zu  können,  Dieser  klei¬ 
ne  Arbeitsaufwand  ist  aber  natür¬ 
lich  gar  nichts  im  Vergleich  bei¬ 
spielsweise  zur  Aufgabe,  etwa  den 
Textomat  oder  Vizawrite  an  den  VC 
20  anzupassen. 

Als  Fazit  darf  festgehalten  wer¬ 
den,  daß  dem  C  128-Besitzer  durch 
das  CP/M-Betriebssystem  ein  riesi¬ 
ges  Software-Potential  zur  Verfü¬ 
gung  steht.  Es  ist  zu  hoffen,  daß  es 
zukünftig  auch  »schlüsselfertige«,  al¬ 
so  bereits  an  den  C  128  angepaßte 
CP/M-Software  geben  wird,  um 
dem  Anwender  die  Mühen  der  In¬ 
stallation  zu  ersparen.  Vor  allem 


Mark  —  das  wäre  doch  wohl  ein 
Renner. 

Schlußfolgerung 

Der  C  128  ist  ein  Zwitter.  Bedingt 
durch  die  sicherlich  löbliche  Ent¬ 
scheidung  von  Commodore  den  C 
128  64er-kompatibel  zu  machen,  er¬ 
gaben  sich  bei  der  technischen  Rea¬ 
lisierung  natürlich  einige  umständli¬ 
che  Lösungen.  Die  8-Bit-Technologie 
ist  bei  Heimcomputern  zwar  noch 
weit  verbreitet,  dennoch  zeigen  ei¬ 
nige  Konkurrenten  mit  16-Bit-Prozes- 
soren  wo  der  Weg  auch  bei  »Klein¬ 
computern«  hingehen  wird. 

Auf  der  anderen  Seite  verfügt  der 
C  128  bereits  bei  seiner  Einführung 
über  ein  enormes  Softwarepotential 
(C  64-  und  CP/M-Software).  Der  An¬ 
wender  kann  also  aus  dem  Völlen 
schöpfen,  Das  wesentlichste  Kauf¬ 
kriterium  wird  aber  der  Preis  sein. 
Wünschenswert  wäre  jeweils  ein 
Kaufpreis  von  deutlich  unter  1000 
Mark  für  Computer,  Floppy-Lauf- 
werk  und  Monitor.  Bei  den  bisheri¬ 
gen  Preisen  kommt  man  sehr 
schnell  über  3000  Mark,  und  in  die¬ 
ser  Kategorie  gibt  es  Alternativen! 

(ev/hm) 
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Die  Alternativen 

Drucken  tun  Sie  alle.  Nur  auf  das  »Wie«  kommt  es 
an.  An  dieser  Stelle  erklären  wir  Ihnen,  wie 
Thermodrucker,  Tintenstrahldrucker  und  Plotter 
funktionieren  und  wozu  man  Sie  verwendet. 


Sowohl  Tintenstrahl-  und  Ther¬ 
modrucker  haben  mit  den  Na¬ 
del-Druckern  eines  gemein¬ 
sam:  den  Aufbau  von  Zeichen  aus 
einzelnen  Punkten.  Beim  Druck 
wird  immer  eine  senkrechte  Punkt¬ 
reihe  (5-9  Punkte)  auf  einmal  zu  Pa¬ 
pier  gebracht.  Dann  rückt  der 
Druckkopf  ein  paar  lOtel  Millimeter 
weiter  und  setzt  die  nächste  Punkt¬ 
reihe.  So  wird  Stück  für  Stück  jedes 
Zeichen  zusammengesetzt.  Die  An¬ 
steuerung  des  Druckkopfes  über¬ 
nimmt  eine  Elektronik  im  Drucker, 
die  aus  den  ASCII-Codes  die  Punkt¬ 
matrix  berechnet. 

Wie  funktioniert  ein 
Thermodrucker? 

Schon  der  Name  gibt  Auskunft 
über  das  Funktionsprinzip,  Ob  nun 
Thermodrucker,  Thermostat  oder 
Thermosflasche,  alles  was  mit  »Ther¬ 
mo«  anfängt,  hat  in  den  meisten  Fäl¬ 
len  etwas  mit  Hitze  zu  tun. 

Mit  Wärme  drucken 

Wie  kann  man  Hitze  drucken? 
Nun,  hierzu  ist  ein  spezielles  Papier 
nötig,  das  sich  schwarz  verfärbt 
wenn  es  heiß  wird.  Das  Papier  stellt 
man  durch  Beschichtung  mit  chemi¬ 
schen  Substanzen  her,  die  bei  Wär¬ 
mezufuhr  zu  einer  schwarzen  Ver¬ 
bindung  reagieren,  Erkennen  kann 
man  dieses  Papier  an  seiner  einsei¬ 
tig  sehr  glatten  Oberfläche.  Nicht  zu 
verwechseln  mit  dem  silbrig  be¬ 
schichteten  Papier  einiger  »Kurz¬ 
schluß-Drucker«,  welche  die  metal¬ 
lische  Beschichtung  beim  Druck 
wegschweißen. 

Anstelle  der  Nadeln  hat  der 
Druckkopf  eines  Thermodruckers 
kleine,  punktförmige  Plättchen  die 
schnell  aufgeheizt  werden  können 
und  auch  schnell  wieder  abkühlen. 
Bild  1  zeigt  die  schematische  Anord¬ 
nung  der  Heizplättchen  in  einem 
Thermodruckkopf.  Die  Heizplätt¬ 
chen  stellen  im  Prinzip  nichts  v/eiter 
dar,  als  flache  »Widerstände«,  die 
senkrecht  übereinander  angeord¬ 
net  auf  einer  gemeinsamen  Grund¬ 
platte  sitzen.  Wenn  bei  einem  Na¬ 
deldrucker  bestimmte  Nadeln  aufs 
Papier  geschlagen  werden,  erhitzt 
ein  Thermodruckkopf  einfach  die 


entsprechenden  Stellen.  Das  Er¬ 
gebnis  ist  in  beiden  Fällen  gleich: 
ein  Muster  aus  schwarzen  Punkten. 

Allerdings  ist  nur  das  Ergebnis 
gleich.  Die  Druckgeschwindigkeit 
eines  Thermodruckers  ist  weitaus 
geringer  als  die  eines  Impact- 
Matrixdruckers,  wie  man  einen  Na¬ 
deldrucker  auch  bezeichnet.  Dafür 
ist  beim  Thermodruck  fast  nichts  zu 
hören.  Die  eingeschränkte  Ge¬ 
schwindigkeit  eines  Thermo¬ 
druckers  ergibt  sich  einfach  aus  der 
Aufheiz-  und  Abkühlzeit  der  Wider¬ 
standsplatten.  Der  Widerstand  kann 
einfach  nicht  schlagartig  aufgeheizt 
werden,  da  bei  zu  hohem  Heizstrom 
die  Widerstände  einfach  durch¬ 
brennen  würden. 

Teueres  Papier 

Sie  können  sich  sicherlich  vorstel¬ 
len,  daß  das  Spezialpapier  wesent¬ 
lich  mehr  kostet  als  nor  .ales  »Com¬ 
puterpapier«.  Die  Thermodrucker- 
Hersteller  haben  sich  deshalb  noch 
etwas  Zusätzliches  einfallen  lassen, 
damit  auch  normales  Papier  ver¬ 
wendet  werden  kann:  Den  Druck 
über  ein  Carbon-Band.  Anstatt  das 


Papier  »schwarz  zu  brennen«,  wer¬ 
den  hier  schwarze  Partikel  vom 
Carbon-Band  gelöst  und  aufs  Papier 
übertragen.  Also  ähnlich  einer 
Schreibmaschine,  nur,  daß  das 
Band  nicht  durch  einen  Anschlag 
abfärbt,  sondern  durch  Hitzeeinwir¬ 
kung.  Aber  das  Carbon-Band  ist  we¬ 
sentlich  teuerer  als  normales 
Druckerband  und  kann  nur  einmal 
verwendet  werden.  Aus  dem 
Druckprinzip  folgt,  daß  keine 
Durchschläge  gemacht  werden 
können. 

Tintenstrahldrucker  — 
Wie  funktionieren  Sie? 

Tintenstrahldrucker  haben  ein 
raffiniertes,  mechanisch  sehr  auf¬ 
wendiges  Funktionsprinzip,  das  ein 
gutes  Schriftbild  (Bild  2)  und  eine  ho¬ 
he  Druckgeschwindigkeit  bei  sehr 
leisem  Druck  ermöglicht,  Sie  ver¬ 
einigen  also  alle  Vorteile  von  Im¬ 
pact-Matrixdruckern  und  Thermo¬ 
druckern  in  sich.  Der  einzige  Nach¬ 
teil:  der  Preis.  Wesentlich  unter  2000 
Mark  ist  fast  kein  Drucker  dieser 
Klasse  zu  haben. 

Im  Gegensatz  zu  allen  anderen 
Druckern  arbeiten  diese  Druckerty¬ 
pen  nicht  mit  Farbbändern,  sondern 
mit  Tinte  die  gezielt  aufs  Papier  ge¬ 
spritzt  wird.  Nur  tröpfchenweise  ver¬ 
steht  sich.  Damit  die  Tropfen  schnell 
antrocknen  und  nicht  verwischen, 
ist  ein  saugfähiges  Papier  Voraus¬ 
setzung.  Dieses  Spezialpapier  ist  et- 
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Bild  3.  Schematische  Darstellung  des  Druckkopfes  eines  Tintenstrahldruckers 


Quelle:  Siemens 
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wa  anderthalb  mal  so  teuer  wie  nor¬ 
males  Computerpapier.  Es  kann  je¬ 
doch  leicht  beschafft  werden. 

So  wie  bei  allen  anderen  Matrix¬ 
druckern  auch,  wird  immer  eine 
senkrechte  Punktreihe  in  einem  Zug 
geschrieben.  Sehr  interessant  ist 
das  Prinzip,  mit  dem  die  Tropfen  auf 
Papier  »geschossen«  werden.  Bild  3 
zeigt  einen  Druckkopf  schematisch. 

Für  jeden  Punkt  auf  einer  senk¬ 
rechten  Reihe  der  Zeichenmatrix 
gibt  es  einen  Düsenkanal  (4)  zur  Er¬ 
zeugung  der  Tropfen.  In  der  Zeich¬ 
nung  (Kopf  des  Siemens  PT88/89) 
sieht  man  eine  Reihe  von  sechs  Dü¬ 
sen.  Der  gezeigte  Kopf  des  Siemens 
PT  88/89  hat  zwei  solche  Reihen  ver¬ 
setzt  zueinander  angeordnet.  Den 
Abschluß  der  Kanülen  bildet  eine 
Platte  (3),  die  etwa  1  mm  vom  Papier 
entfernt  ist.  Jeder  Düsenkanal  ist 
konzentrisch  von  einem  Piezokera- 
mik-Röhrchen  umschlossen.  Legt 
man  eine  Spannung  an  diese  Röhr¬ 
chen  an,  ziehen  sie  sich  zusammen 
und  üben  so  einen  kleinen  »Schlag« 
auf  die  Flüssigkeitssäule  aus.  Durch 
den  Druckanstieg  wird  dann  ein 
Tröpfchen  aus  der  Düse  geschleu¬ 
dert.  Wie  sich  der  Tropfen  bildet, 
sehen  Sie  in  Bild  4. 

Piezo-elektrische  Kristalle  haben 
die  Eigenschaft,  ihre  Form  in  eine 
bestimmte  Richtung  zu  verändern 
wenn  eine  Spannung  angelegt  wird. 
Umgekehrt  liefert  der  Kristall  einen 
sehr  kleinen  Stromstoß,  wenn  er  ge¬ 
bogen  wird  (Piezo-Feuerzeug, 
Kristall-Tonabnehmer). 

Bei  diesem  Verfahren  liegt  der 
Tintenvorratsbehälter  (10,  Bild  3)  tie¬ 
fer  als  die  Kanülen.  Das  hat  den  Vor¬ 
teil,  daß  in  den  Düsen  ein  statischer 
Unterdrück  herrscht.  Es  kann  also 
nur  dann  Tinte  austreten,  wenn  sich 
das  Piezoröhrchen  zusammenzieht. 

Das  ist  die  übliche  und  verbreitet¬ 
ste  Version  des  Tintenstrahl¬ 
druckers.  Von  Hersteller  zu  Herstel¬ 
ler  gibt  es  dabei  natürlich  Abwei¬ 
chungen.  So  kann  der  Druck  auch 
durch  schlagartiges  Aufheizen  von 
etwas  Tinte  bis  zur  Dampfbildung 
erzeugt  werden.  Innerhalb  eines 
kleinen  Behälters  wird  mit  Hilfe  ei¬ 
ner  leistungsstarken  Heizspirale  die 
Tinte  in  der  Umgebung  der  Heizspi¬ 
rale  in  sehr  kurzer  Zeit  zum  Sieden 
gebracht,  wobei  sich  Dampfblä¬ 
schen  bilden.  Diese  Dampfentwick¬ 
lung  erhöht  den  Systemdruck  und 
treibt  einen  Tropfen  Tinte  aus  der 
Düse.  Durch  das  Verdampfen  bil¬ 
den  sich  leicht  Feststoff-Rückstände, 
die  den  Heizbehälter  schnell  ver¬ 
stopfen  können. 

Verschiedene  Entwicklungen  ge¬ 
hen  in  eine  andere  Richtung.  Die 
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Bild  1.  Ein  Thermodruckkopf  schematisch. 
Rechts  der  gemeinsame  Pol 
der  Widerstände 


einzelnen  Matrixpunkte  werden 
nicht  durch  einzelne  Kanülen  er¬ 
zeugt,  sondern  aus  einer* gemeinsa¬ 
men  Quelle.  Die  Tintentröpfchen 
verlassen  dabei  statisch  aufgeladen 
die  Piezo-»Pumpe«  und  werden 
über  ein  elektrisches  Feld  (Platten¬ 
kondensator)  auf  die  richtige  Bahn 
gebracht. 

Da  bei  beiden  Systemen  nur  sehr 
kleine  Massen  (Tintentröpfchen)  be¬ 
wegt  werden  müssen,  können  grö¬ 
ßere  Schreibgeschwindigkeiten  als 
bei  Impact-Nadeldruckern  erreicht 
werden. 

Die  Probleme  die  bei  Tinten¬ 
strahldruckern  gelöst  werden  müs¬ 
sen  sind  recht  vielseitig.  Das  größte 
davon  ist  die  Größe  der  Tintentröpf¬ 
chen,  die  konstant  sein  muß.  Bei  un¬ 
gleichen  Tropfen  wäre  eine  fleckige 
Schrift  die  Folge.  Es  ist  also  sehr 
wichtig,  daß  einmal  die  Kanülen  ge¬ 
nau  gleichen  Durchmesser  haben 
und  die  Piezo-Kristalle  den  gleichen 
Druck  auf  die  Flüssigkeitssäule  er¬ 
zeugen. 

Recht  arbeitsintensiv  kann  im  Fal¬ 
le  einer  verstopften  Düse  das  Reini¬ 
gen  des  Druckkopfes  werden.  Der 
Druckkopf  muß  entweder  ausge¬ 
tauscht  oder  mit  einer  Reinigungs¬ 
flüssigkeit  gespült  werden.  Schmut¬ 
zige  Hände  sind  nach  dieser  Arbeit 
nicht  selten.  Beim  Unterdruckver¬ 
fahren,  wo  der  Vörratsbehälter  un¬ 
terhalb  der  Düsen  liegt,  sind  ver¬ 
stopfte  Kanülen  relativ  selten.  Häufi¬ 


ger  kommen  sie  vor,  wenn  der  Vör¬ 
ratsbehälter  oberhalb  angebracht 
ist.  Die  Tintensäule  reicht  dann  näm¬ 
lich  bis  an  die  Düsenöffung  und 
kann  leicht  antrocknen. 

Plotter  — 
was  können  Sie? 

Müssen  Sie  häufig  Kurvendia¬ 
gramme  zeichnen?  Dann  ist  ein  Plot¬ 
ter  das  richtige  Druckgerät  für  Sie. 

X-Y-Plotter 

Diese  Schreiber,  auch  Flachbett- 
Plotter  genannt,  eignen  sich  vor  al¬ 
lem  für  kleinere  Papiergrößen  bis 
DIN  A2.  Das  Papier  wird  auf  einer 
Art  Zeichenbrett  festgeklemmt  und 
ein  Stift  (Tinte  oder  Filzstift)  über  ei¬ 
nen  beweglichen  Arm,  der  über  die 
gesamte  Papier  breite  reicht,  in 
Längsrichtung  geführt.  Über  eine 
Seilzugmechanik  kann  der  Stift  in 
der  Breite  auf  dem  Arm  hin-  und 
herbewegt  werden.  Auf  diese  Wei¬ 
se  kann  jeder  Punkt  des  Papiers  er¬ 
reicht  werden.  Eine  Hubmechanik 
am  Schreibkopf  hebt  den  Stift  an, 
wenn  nicht  geschrieben  werden  soll. 

Die  Positionierung  des  Stiftes  er¬ 
folgt,  auf  etwa  0,1  mm  (beim 
1520-Plotter  0,2  mm)  genau,  über 
zwei  Schrittmotoren,  die  über  eine 
Treiberelektronik  angesteuert  wer¬ 
den.  Computerseitig  muß  in  den 
meisten  Fällen  nur  die  x-  und  y- 
Koordinate  an  den  Plotter  übertra¬ 
gen  werden. 

Trommel-Plotter 

Sie  sind  für  große  Papierformate 
konstruiert  worden,  wo  ein  Flach¬ 
bettplotter  zuviel  Platz  in  Anspruch 
nehmen  würde.  Anstelle  einen  Stift 
in  x-Richtung  mit  einem  Arm  zu  be¬ 
wegen,  bewegt  man  hier  das  Papier 
m  Längsrichtung  unter  dem 
Schreibstift  hin  und  her.  Es  sind  da¬ 
durch  keine  Grenzen  in  der  Papier¬ 
länge  gesetzt.  Eine  Gummiwalze 
transportiert  das  Papier  so,  daß  es 
auf  beiden  Seiten  aus  dem  Plotter 
»hinaushängen«  kann.  Um  den 
Schlupf  möglichst  gering  zu  halten, 
sind  auf  beiden  Seiten  der  Walze 
kreisförmig  Nadeln  angeordnet,  die 
zusätzlich  das  Papier  mit  hin-  und 
herbewegen. 

Die  zeichnerischen  Vorteile  eines 
Plotters  liegen  auf  der  Hand.  Linien 
werden  durchgehend  gezeichnet. 
Im  Gegensatz  zu  Hardcopies  bei 
Matrixdruckern,  bei  denen  Linien 
aus  Punkten  zusammengesezt  sind 
und  dadurch  etwas  »zerissen«  aus- 
sehen.  Meistens  werden  Plotter  zum 
Zeichnen  von  Schalt-  und  Bauplänen 
verwendet.  Die  Erfassung  und  Bear¬ 
beitung  erfolgt  meist  mit  einem  CAD 
(Computer  Aided  Design)-System. 
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Des  Preises  wegen  sind  sie  im 
Heimbereich  kaum  anzutreffen. 
Flachbettplotter  kosten  in  der  Regel 
über  2000  Mark. 

Welcher  Typ 
paßt  zu  mir? 

Zusammen  mit  den  letzten  beiden 
Ausgaben,  haben  wir  Ihnen  fast  alle 
Drucker  vorgestellt,  die  es  gibt.  Teu¬ 
re  Exemplare  über  2000  Mark  ha¬ 
ben  wir  mit  Absicht  nicht  berück¬ 
sichtigt.  Der  Preis  paßt  einfach  nicht 
mehr  zu  einem  Heimcomputer. 

Thermodrucker  gehören  zu  den  billig¬ 
sten  Druckern,  die  es  gibt.  Aller¬ 
dings  nur  in  der  Anschaffung.  Das 
spezielle  Thermopapier  macht  näm¬ 
lich  diese  Drucker  auf  Dauer  gese¬ 
hen  teuer.  Auch  wenn  Sie  auf 
Plastikcarbon-Band  ausweichen, 
mit  dem  verschiedene  Thermo¬ 
drucker  auch  normales  Papier  ver¬ 
arbeiten,  fallen  hohe  Gebrauchsko¬ 
sten  an. 

Durch  das  kaum  hörbare  Druck¬ 
geräusch  sind  diese  Drucker  be¬ 
sonders  für  »Nachtarbeiter«  geeig¬ 
net,  die  sich  keinen  Tintenstrahl¬ 
drucker  leisten  wollen.  Mit  Thermo¬ 
druckern  können  Sie  Listings  und 
Hardcopies  (nicht  bei  allen  Typen) 
drucken.  Zum  Schreiben  von  Brie¬ 
fen  eignen  sich  die  meisten  wegen 
der  schlechten  Schrift  (5x7  Punkte) 
nicht. 

Empfehlen  können  wir  diese 
Drucker  denjenigen,  die  nicht  zu  tief 
in  das  Computer-Hobby  einsteigen 
wollen. 

Nadel-Matrixdrucker  sind  sehr  weit 
verbreitet.  Das  liegt  an  der  Vielsei¬ 
tigkeit  dieser  Geräte.  Es  fällt  im 
Heimbereich  kaum  ein  Druckpro¬ 
blem  an,  das  diese  Drucker  nicht 
bewältigen  würden.  Wenn  Sie  die 
Marktübersicht  Matrixdrucker  im 
64 'er  5/85  anschauen,  sehen  Sie, 
daß  diese  Drucker  häufig  über  die 
verschiedensten  Schriftarten  verfü¬ 
gen.  Sie  können  also  sowohl  Ihre  Ge¬ 
schäftspost  als  auch  Listings  damit 
drucken.  Die  Korrespondenz  in 
Schönschrift  (etwa  50  Z/s)  und  die  Li¬ 
stings  in  Normalschrift  (etwa  100 
Z/s),  wobei  die  Normalschrift  schon 
ein  sehr  gutes  Schriftbild  haben 
kann. 

Die  Vielseitigen 

Nadel-Matrixdrucker  können  je¬ 
dem  wärmstens  empfohlen  werden. 

Aber  mit  dem  Schreiben  von  Brie¬ 
fen  sind  die  Leistungen  eines  Ma¬ 
trixdrucker  nicht  erschöpft.  Da  die 
Nadeln  (bei  den  meisten  Matrix- 
druckem)  einzeln  angesteuert  wer¬ 
den  können,  kann  jede  Grafik  aus 
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Bild  4.  Ein  Tintentröpfchen  wird  aus  der 

Düse  geschossen  Quelle:  Siemens 


einzelnen  Punkten  zusammenge¬ 
setzt  werden.  Besonders  gut  können 
diese  Drucker  Hardcopies  vom 
Bildschirm  drucken.  Eingeschränkt 
ist  die  Verwendbarkeit  bei  Kurven- 
und  Liniendiagrammen,  da  die  Auf¬ 
lösung  zu  gering  ist.  Hier  smd  die 
Plotter  in  ihrem  Element.  Da  der 
Schreiber  zwischen  den  vom  Com¬ 
puter  berechnetet  Puulden  nicht  ab¬ 
gesetzt  wird,  interpoliert  er  quasi 
ein  Kurven-Diagramm.  Eine  durch¬ 
gezogene  Linie  ist  die  Folge. 

Der  Kauf  eines  Plotters  für  zu  Hau¬ 
se  lohnt  sich  aber  nur  in  den  wenig¬ 
sten  Fällen,  da  ein  Plotter  nur  zum 
Zeichnen  sinnvoll  verwendet  wer¬ 
den  kann.  Grafikbilder  in  Hochauf¬ 
lösung  zu  drucken  ist  praktisch  un¬ 
möglich.  Genauso  das  Schreiben 
von  Briefen.  Listings  sollten  sie  mit 
einem  Plotter  nur  dann  drucken, 
wenn  Sie  über  zuviel  Zeit  verfügen. 

Ein  Plotter  ist  kein  Ersatz  für  einen 
Drucker.  Vielmehr  ist  er  als  Zusatz¬ 
gerät  zu  einem  Drucker  gedacht, 
wenn  es  auf  saubere  Zeichnungen 
ankommt. 

Tintenstrahldrucker  vereinigen  die 
Vorteile  von  Nadel-  und  Thermo¬ 
druckern.  Sie  sind  sehr  vielseitig 
und  leise.  Allerdings  können  keine 
Durchschläge  wie  mit  dem  Nadel¬ 
drucker  angefertigt  werden.  Das 
Schriftbild  der  »Tintenspritzer«  ist 
nicht  ganz  so  exakt  wie  das  gleich¬ 
teurer  Matrixdrucker  (Bild  2). 

Brauchen  Sie  einen  schnellen 
Drucker  fürs  Büro,  beispielsweise 


für  Kontrollprotokolle,  Adressenauf¬ 
kleber  und  Rundschreiben,  sind  Sie 
mit  einem  leisen  Tintenstrahl¬ 
drucker  richtig  beraten.  Ebenso 
wenn  Sie  zu  Hause  keine  Familien¬ 
mitglieder  mit  dem  Lärm  eines  Na¬ 
deldruckers  belästigen  wollen. 

Typenraddrucker  sind  nur  für  Textver- 
arbeitung  interessant,  wenn  es  auf 
sehr  schöne  Schrift  ankommt.  Für  Li- 
stingsdruck,  Hardcopies  und  Rund¬ 
schreiben  sind  sie  so  gut  wie  unge¬ 
eignet. 


Das  Problem 
mit  dem  Interface 

Häufig  werden  wir  gefragt,  wel¬ 
ches  Interface  das  beste  für  einen 
bestimmten  Drucker  ist.  Leider 
kann  die  Frage  nicht  absolut  beant¬ 
wortet  werden.  Es  kommt  nämlich 
ganz  darauf  an,  was  Sie  investieren 
wollen.  100,  200  oder  500  Mark.  Der 
Preis  wird  von  Zusatzfunktionen  wie 
C  64-Grafikzeichen-Darstellung  etc. 
bestimmt.  Bevor  Sie  sehr  viel  Geld 
ausgeben,  beachten  Sie  aber,  daß 
die  Arbeit  mit  einem  Interface  um  so 
schwieriger  werden  kann,  je  mehr 
Funktionen  es  bietet.  Für  die  Praxis 
haben  sich  folgende  Funktionen  als 
sinnvoll  erwiesen: 

—  CBM-ASCII-Wandlung;  die  Com- 
modore-Zeichencodes  werden  der 
ASCII-Norm  angepaßt  (Standard). 

—  Groß/Grafikmodus 

—  Groß/Kleinmodus 

—  Linearkanal:  hier  werden  die  Da¬ 
ten  ungewandelt  an  den  Drucker 
geschickt.  Diese  Funktion  ist  sehr 
wichtig  zum  Drucken  von  Hardco¬ 
pies. 

Sie  merken  also,  es  gibt  keinen 
Drucker,  der  alles  lOOprozentig 
macht.  Vor  dem  Kauf  sollte  man  sich 
völlig  im  klaren  über  die  benötigten 
Funktionen  sein.  Funktionen  die 
man  vielleicht  einmal  pro  Jahr 
braucht,  sollten  eine  Kaufentschei¬ 
dung  überhaupt  nicht  beeinflussen. 
Solche  Sonderfunktionen  können 
nämlich  nur  den  alltäglichen  Ge¬ 
brauch  eines  Druckers  erschweren. 
In  der  folgenden  Marktübersicht 
finden  Sie  eine  Auswahl  von  Ther¬ 
modruckern,  Tintenstrahldruckern 
und  Plottern.  Daß  von  den  letzten 
beiden  Typen  nur  wenige  aufge¬ 
führt  sind  liegt  einfach  am  hohen 
Preis  der  Geräte.  Wir  haben  bei 
2000  Mark  die  Grenze  gezogen.(hm) 


IO  Zeichen/"!:  Normal-/  -fc. —  /  Fett^-  er  fc»  r-  i  HF  fc 

12  Zeichen/":  Normal-/  Breit—  /  Fettschrift 
17  Zeichen/":  Normal-/  Brei  t— /  Fettschri  ft 
Bild  2.  Schriftprobe  des  Siemens  PT88/89 
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Drucker 


Test:  Brother  EP  44 


Die  Brother  EP  44  ist  nicht  nur  ein  Drucker, 
sondern  auch  eine  voll  portable  Schreibmaschine. 

Sie  wird  über  eine  RS232-Schnittstelle  angesprochen. 


Die  Schreibmaschine  ist  sehr 
klein  (55  mm  x  330  x  262  mm) 
und  paßt  mit  Sicherheit  in  je¬ 
den  Aktenkoffer.  Mit  ihren  2,5  kg 
(einschießlich  Batterien)  fällt  sie 
kaum  ins  Gewicht. 

Die  Schreibmaschine  hat  einen 
Textspeicher  für  über  3  700  Zeichen. 
Dort  können  ganze  Briefe  abgelegt 
werden,  die  auch  nach  Ausschalten 
des  Gerätes  oder  bei  Batteriewech¬ 
sel  erhalten  bleiben.  Die  EP  44  ist 
zwar  auch  für  Netzbetrieb  vorgese¬ 
hen,  doch  fehlt  das  Netzgerät  in  der 
Grundausstattung. 

Der  Textspeicher  kann  auch  nach¬ 
träglich  über  das  15stellige  LCD- 
Display  bearbeitet  werden.  Zu  den 
Editiermöglichkeiten  gehören  Lö¬ 
schen,  Einfügen,  Ergänzen  und  Kor¬ 
rigieren.  Die  Schreibmaschme 
selbst  läßt  kaum  Wünsche  offen. 

Doch  inwieweit  läßt  sich  die  Bro¬ 
ther  EP  44  mit  einem  Computer  wie 
dem  C  64  ansteuern?  Der  Thermo¬ 
drucker  besitzt  dazu  eine  integrierte 
RS232-Schnittstelle.  Über  eine  spe¬ 
zielle  Datenleitung  von  Brother 
(CA50-CMD II)  kann  die  EP  44  direkt 
an  den  User-Port  des  VC  20  oder  C 
64  angeschlossen  werden.  Über  die 
Geräte-  und  Sekundäradresse  2 
können  nun  Buchstaben,  Zahlen,  so¬ 
wie  Satz-  und  Rechenzeichen  ge¬ 
druckt  werden.  Grafikzeichen  oder 
Commodore-Sonderzeichen  wer¬ 


den  ignoriert  oder  falsch  interpre¬ 
tiert.  Die  Schreibmaschine  ist  des¬ 
halb  nicht  zum  Ausdruck  von  Li- 
stings  oder  Hardcopies  geeignet. 
Sie  findet  ihre  Verwendung  aus¬ 
schließlich  in  der  Textverarbeitung, 
zumal  der  Zeichensatz  die  deut¬ 
schen  Umlaute  beinhaltet  und  das 
Schriftbild  beim  Druck  mit  Thermo- 
papier  dem  einer  Typenrad¬ 
schreibmaschine  sehr  nahe  kommt 
(Bild  1).  Das  Schriftbild  mit  Plastik- 
Carbon-Band  auf  normalem  Papier 
ist  nicht  ganz  so  gut. 

Schwierigkeiten  traten  in  der  Ver¬ 
träglichkeit  zu  Textverarbeitungs- 
Programmen  auf.  Das  Textverarbei¬ 
tungsprogramm  Vizawrite  ist  nicht 
für  einen  RS232-Drucker  vorgese¬ 
hen.  Wordpro  3+  akzeptiert  nicht 
die  Geräteadresse  2.  Auch  mit  dem 
Programm  SM-Text  treten  ähnliche 
Probleme  auf.  Mit  Textomat- 
Versionen,  die  nach  1983  auf  den 
Markt  kamen,  soll  laut  Firmenaus¬ 
kunft  das  Interface  Zusammenarbei¬ 
ten. 

Easyscript,  die  große  Ausnahme: 

Nur  Easyscript  konnte  an  die  EP 
44  angepaßt  werden.  Alle  anderen 
Textprogramme  konnten  hingegen 


auch  nach  längerem  »Herumtüfteln« 
nicht  in  Verbindung  mit  der  EP  44 
verwendet  werden. 

Wichtig  ist,  wie  der  Druckerkanal 
eröffnet  wird: 

OPEN  1,2,2,  CHR$(6)  +  CHR$(1) 

Nur  nach  diesem  OPEN-Befehl 
werden  Texte  einwandfrei  ausge¬ 
druckt.  Über  die  RS232-Leitung  ak¬ 
zeptiert  die  EP  44  nur  7  Steuercodes 
wie: 

BS  (Backspace) 

HT  (Horizontal  Tabulation) 

LF  (Line  Feed) 

CR  (Carriage  Return) 

Wenn  man  schon  eine  program¬ 
mierbare  Schreibmaschine  mit 
Textspeicher  besitzt,  stellt  sich  na¬ 
türlich  die  Frage,  ob  die  Program¬ 
mierung  auch  über  den  Computer 
erfolgen  kann,  oder  ob  die  gespei¬ 
cherten  Texte  mit  Hilfe  des  C  64/VC 
20  auf  Diskette  oder  Kassette  ge¬ 
speichert  werden  können.  Leider  ist 
das  Interfacekabel  hierfür  nicht  vor¬ 
gesehen.  Auf  besondere  Bestellung 
können  Sie  aber  von  Brother  ein  bi¬ 
direktionales  Interface  erhalten. 
Der  Textspeicher  kann  nur  über  die 
eigene  Schreibmaschinentastatur 
bearbeitet  werden.  Es  ist  dann  mög¬ 
lich,  den  in  der  Schreibmaschine 
gespeicherte  Text  in  den  C  64  zu  ho¬ 
len.  An  die  Brother  EP  44  läßt  sich  di¬ 
rekt  ein  Modem  anschließen.  Kom¬ 
biniert  man  sie  mit  einem  batterie¬ 
betriebenen  Akustikkoppler,  so 
wird  aus  der  Brother  ein  portables 
Datenterminal,  mit  dem  man  sogar 
aus  Telefonzellen  in  Datenbanken 
oder  Mailboxen  herumstöbern 
kann. 

Die  Brother  EP  44  ist  eine  v/irklich 
gute  elektrische  Thermo-Matrix- 
Schreibmaschine  mit  hervorragen¬ 
dem  Schriftbild.  Wegen  ihrer  Größe 
und  Gewicht  eignet  sie  sich  vor  al¬ 
lem  für  kleine  Arbeiten  unterwegs 
(im  Flugzeug  oder  Zug).  Auch  als 
Datenterminal  findet  die  EP  44  eine 
gute  Anwendung.  Bemerkenswert 
ist  der  große  Zeichensatz,  der  alle 
europäischen  Sonderzeichen  bein¬ 
haltet.  Als  Drucker  für  den  C  64  und 
VC  20  eignet  sich  die  EP  44  nur  be¬ 
dingt. 

Für  alle,  die  eine  portable 
Schreibmaschine  brauchen  und  nur 
ab  und  zu  etwas  über  den  Computer 
ausdrucken  lassen  wollen,  ist  die  EP 
44  absolut  empfehlenswert. 

(Christian  Q.  Spitzner/hm) 


Info:  Brother,  im  Rosengarten  14.  Postfach  1320, 6368  Bad  Vil¬ 
bel,  Preis  799  Mark;  Druckerkabel  149,—,  Net2adapter  39  — 


ABCDEFGH I JKLMNOPQRSTUVWXYZÄÖUabcde  f gh i j  k 1 ranopqrst uvwxy zäöüßl 234567890 
!  "§+%&/<  =  ;  M$e£Fr¥QeÄä  i  ß ;  '  H#  |  /Ea?00ö&!  @§*ääääe666ööööä 

Bild  1 .  Der  verkleinerte  Zeichensatz  der  EP  44 
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Marktübersicht:  Drucker 

Thermodrucker 


/ 


/  ///- 


/ 

/  * 

/  *vV 

/  & 

/ 

7 

/*■*$ 

7 

/ 

a)  Brother 

b)  Brother 

HR  5 
(HR  5C) 

9x9 

ja 

k.  A. 

30 

a,  b 

22 

30,3x17,5x6,5 

a,  c 

a)  ja  — 

b)  ja 

c)  — 

499,- 

EP-44 

Schreib- 

masch. 

18x24 

nein 

k.  A.  / 

16 

a,  b 

22 

33x26,2x5,5 

b 

a)  nein  Brother 

b)  nein  Druckerkabel 

c)  Aufpreis  149,— 

799,- 

TC-600 

18x24 

nein 

k.  A. 

16 

a,  b 

22 

34x27,6x5,8 

b 

a)  nein  w.  o. 

b)  nein 

c)  Aufpreis 

1365,- 

a)  Händler 

b)  Citizen 

TIP680 

9 

k.  A. 

k.  Ä. 

50 

a.  b 

22 

31x21,6x7 

c 

a)  k.  A. 

b)  ja 

c)  ja 

ca.  600, — 

a)  Epson 

b)  Epson 

P-40 

5x9 

ja 

480 /Zeile 

40 

a 

11,2 

20,6x12,8x4,6 

a 

a)  nein  Centronics 

b)  nein 

c)  nein 

448,— 

a)  Star 

b)  Star 

STX-80 

5x9 

ja 

60 

60 

a 

22 

35,2x19x10 

a 

a)  nein  Star-C  64-Inter- 

b)  nein  face,  ca.  250,— 

c)  Aufpreis 

595,- 

a)  Händler 

b)  Okidata 

Okimate 

20 

14x14 

7x14 

ja 

144x144 

80 

40 

a,  b, 
schwarz 
o.  3farbig 

25,4 

6x19x33 

a,  b 

a,  b,  c  in  — 

Vorberei¬ 

tung 

788,—  netto 

a)  Händler 

b)  Ricoh 

TP2051C 

17x9 

ja,  farbig 

bis  zu 

1960  pro 

8  Zoll 

80 

b 

24,5 

34,7x19,9x6,4 

a,  b 

a)  nein  Centronics 

b) nein 

c)  nein 

ca.  1600,— 
ab  Herbst 

Tintenstrahldrucker 


Plotter 


/  “'s-' 

/  ’  V 

/  '*0* 

/ 

/ 

/  b  & 

/  v 

/ 

a)  Adcomp 

b)  Adcomp 

X100C64 

10-15 

b 

DIN  A4 

38,5x26,2x7,7 

a,  b  (optio¬ 
nal) 

a)  ja 

b)  ja 

c)  Softinterface 

1 980,— 

X300 

5 

a,  DIN  A3 

DIN  A3 

57,5x44,8x10,5 

a,  b  (optio¬ 
nal) 

a)  ja 

b)  ja 

c)  Aufpreis 
(ca.  100,-) 

2250,- 

a)  Händler 

b)  Commodore 

VC  1520 

14 

b 

11,5 

27x16x7,5 

Commo¬ 

dore 

a)  ja 

b)  ja 

c)  ja 

um 

300,- 

a)  Händler 

b)  Panasonic 

KX-W08G  Grafik- 
Schreibmas  chine 

5 

b,  DIN  A4 

DIN  A4 

32x26x6 

k.  A. 

a)  nein 

b)  nein 

c)  Aufpreis 
(ca.  250,-) 

698,- 

RK-P400C 

6,5 

b,  DIN  A4 

DIN  A4 

36,2x26,8x6,2 

a,  b 

a)  nein 

b)  nein 

c)  Aufpreis 

Pana¬ 

sonic 

RP-K110 

998,- 

ab 

August 

28 
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Mit  dieser  Marktübersicht 
zeigen  wir  Ihnen,  welche 
Thermo-  und  Tintenstrahl¬ 
drucker  und  welche  Plotter 
es  für  einen  Heimcompu¬ 
ter  wie  den  C  64  gibt. 

In  der  Übersicht  haben  wir 
Drucker,  die  deutlich  über  2000 
Mark  kosten,  nicht  berücksichtigt. 
Denn  Geräte,  die  diese  Preisgrenze 
überschreiten,  sind  für  den  An¬ 
schluß  an  den  C  64  wenig  sinnvoll, 
kosten  sie  doch  fast  schon  viermal 
soviel  wie  der  Computer  selbst. 

Die  Marktübersicht  beruht  auf 
Herstellerangaben  und  erhebt  kei¬ 
nen  Anspruch  auf  Vollständigkeit. 
Außerdem  sollen  alle  genannten 
Drucker  an  den  C  64  anschließbar 
sein.  Wenn  nötig,  über  ein  passen¬ 
des  Interface. 

Die  Vorteile  der  hier  auf  ge  führten 
Drucker: 

Thermodrucker 

Diese  Geräte  gehören  in  der  Re¬ 
gel  zu  den  billigeren  Druckern. 
Brauchen  aber  teures  Spezialpapier 
oder  extra  Plastik-Carbon-Band, 
wenn  mit  normalem  Papier  ge¬ 
schrieben  werden  soll. 

Tintenstrahldrucker 

Wollen  Sie  einen  leisen  Drucker 
mit  den  Fähigkeiten  eines  Nadel- 
Matrixdruckers,  sind  diese  Drucker 
die  richtigen.  Zum  Druck  brauchen 
Sie  spezielle  Tinte  und  saugfähiges 
Papier. 

Plotter 

Plotter  sind  im  Prinzip  keine 
Drucker,  Vielmehr:  Sie  haben  damit 
fast  nichts  gemeinsam.  Zwar  können 
Plotter  Buchstaben  schreiben,  aber 
diese  Funktion  dient  in  der  Regel 
nur  der  Beschriftung  von  Grafiken. 
Die  Stärke  der  Plotter  liegt  beim 
Zeichnen  von  Grafiken,  die  aus  Li¬ 
nien  bestehen.  Eine  Linien-Grafik 
darf  nicht  mit  einer  Hardcopy  ver¬ 
wechselt  werden.  Beim  Druck  von 
Hardcopies  bleibt  nämlich  ein  Ma¬ 
trixdrucker  ungeschlagen. 

Ein  Merkmal  haben  alle  hier  vor¬ 
gestellten  Drucker  gemeinsam: 
Während  der  Arbeit  sind  sie  fast 
nicht  zu  hören  und  haben  schon  des¬ 
halb  verschiedenste  Einsatzberech¬ 
tigungen.  Haben  Sie  zu  Hause  klei¬ 
ne  Kinder,  die  schlafen  sollen,  wäh¬ 
rend  Sie  Ihrem  Computerhobby 
nachgehen?  Dann  wäre  ein  »Tmten- 
spntzer«  ein  geeigneter  Ersatz  für  ei¬ 
nen  eventuell  ms  Auge  gefaßten 
Typenrad-  oder  Nadeldrucker. (hm) 
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Mailbox 

für 

Anfänger 

Das  Medium  Mailbox 
fasziniert.  Der  Einsteiger 
zeigt  allerdings  oft  noch 
eine  gewisse  Scheu. 
Anhand  eines  Beispiels 
zeigen  wir,  wie  einfach 
der  Umgang  mit  DFÜ 
sein  kann! 

Als  erste  und  wichtigste  Regel 
gilt:  Ist  die  Verbindung  zu  einer 
Ihnen  fremden  Mailbox  herge¬ 
stellt,  sehen  Sie  sich  die  Anleitung 
an.  Dies  ist  aus  zwei  Gründen  wich¬ 
tig.  Zum  einen  werden  in  den  mei¬ 
sten  Fällen  Menüaufrufe  nur  abge¬ 
kürzt  auf  den  Bildschirm  gebracht, 
mit  denen  ein  Neuling  kaum  etwas 
anfangen  kann.  In  der  Decates-Box 
wäre  dies  »Ihre  Eingabe  (A,P,D,0-6, 
9)«.  Erst  die  Anleitung  gibt  Auf¬ 
schluß,  daß  nur  RETURN  ohne  an¬ 
dere  Eingabe  das  Hauptmenü  aus¬ 
führlich  anzeigt. 

Zum  anderen  kann  es  bei  nicht  so 
ausgefeilten  Boxen  wie  Decates  Vor¬ 
kommen,  daß  Fehleingaben  zum 
Programmabsturz  führen.  Wenn 
dann  der  Systemoperator  nicht  zur 
Stelle  ist,  ist  die  Box  erst  einmal  für 
alle  Anrufer  nicht  erreichbar, 

Ein  weiteres  wichtiges  Thema  ist 
der  Informationsaustausch.  Diese 
Rubrik  dient  hauptsächlich  zwei 
Zwecken.  Interessante  Informatio¬ 
nen  möglichst  vielen  DFÜ-Fans  be¬ 
kannt  zu  machen  und  Kontakt  zwi¬ 
schen  einzelnen  herzustellen.  Ein¬ 
gaben  wie  »Ich  grüße  alle  Hacker, 
xyz«  oder  »Ich  war  hier,  xyz«  machen 
eine  Box  nur  unübersichtlich  und 
treiben  die  Telefonkosten  in  die  Hö¬ 
he.  Damit  ist  also  niemandem  ge¬ 
dient! 

Noch  ein  Hinweis  zum  Schluß,  Ge¬ 
rade  neue  Mailboxen  sind  oft  auf  die 
Hilfe  von  ihren  Anrufern  angewie¬ 
sen.  Die  meisten  Betreiber  einer 
Mailbox  sind  für  jeden  Tip  und  Ver¬ 
besserungsvorschlag  dankbar.  Be¬ 
achtet  man  diese  Regeln,  steht  einer 
guten  Zusammenarbeit  zwischen 
Anrufern  und  Mailboxbetreibern 
nichts  mehr  im  Wege.  (rg) 

30  Q3E? 


11:01:04  »  Sie  haben  60  Min.  SYSTEM-ZEIT  « 

*****  'ZUR  ZEIT  KEINE  MITTEILUNGEN  FUER  SIE  '***** 
HAUPTMENU  E 


A  "ANLEITUNG  •'( 
P  "PARAMETER 

D  "D  I  A  LOG . ( 

0  "LOG  OFF . ( 

1  "DECATES  . ( 

2  "MAI  LBOX  . ( 

3  "SOFTBOX  . C 

4  "TELEBOX  . ( 

5  "ANWENDUNG  "  ( 

6  "FERNKURSE  "< 

9  ''I  NFODAT  . < 


In-formations-System  ) 
Ausgabe— Steuerung  ) 

Inter — Kommunikation  ) 

ENDE  der  Verbindung  ) 

Anschrift  &  Informationen  > 
Informations-Austausch  ) 
Programm-Austausch  ) 

Mai 1 box-Nummern-Li ste  ) 
Programm-Ablauf  ) 
Programmierte  Unterweisung  > 

Privates  Datenbank  System  > 


Ihre  EINGABE  ( A , P , D , 0-6 ,9 )  '  ==>  'a 


*****  'ANLEI  TUNG'(  Informations-System  )  ’***** 
1-)  ALLGEMEINE  HINWEISE 


PROTOKOLL  :  8  Bit,  NO  Parity,  1  STOP-Bit,  XON,  XOFF 


Schl i essen  Sie  jede  Eingabe  mit 
Ausgabe  Anhalten  ' ' ' ' <  XOFF  )  ’ 

Ausgabe  Fortsetzen  ' '  <  XON  )  ' ' 

Ein—  Ausgabe  Beenden  (  MENUE  ) 
Verbindung  Trennen  ' ' (  ENDE  )  ’ 


' >  RETURN 
’ >  Ctrl /S 
' >  Ctrl/Q 
’ >  Ctrl /X 
' "LOGOFF" 


<  '  ab . 

< 

<  oder  >  ESC  < 

(  nicht  auf  legen! 


) 


Die  wichtigste  Taste  ist  Ctrl/X  oder  ESC. 

Mit  Ihr  knennen  Sie  Texte  und  Menues  ueberspringen, 

Ausgaben  abbrechen  und  zur  Befehlseingabe  gelangen. 

Somit  bestimmen  Sie  Ihre  Geschwindigkeit  selbst. 

Mit  >  RETURN  <  ohne  Eingabe  wird  das  Menue  angezeigt. 

Sie  sollten  uebrigens  einen  sinnvollen  Namen  beim  "Logon"  verwenden 
da  wir  nur  so  die  Moeglichkeit  haben.  Ihnen  eine  Nachricht  zukommen 
zu  lassen  ! ! ! 

HAUPTMENUE  •'''11:03:00  »  Sie  haben  noch  '58  Min.  SYSTEM-ZEIT  « 


Ihre  EINGABE  C A , P , D , 0-6 ,9)  ' ==>  '2 

2  ‘'MAI  LBOX  '(  Inf  or/nati  ons-Austausch  > 


0  ' ' Zum  HAUPTMENUE 

1  'Informationen  eingeben 

2  'Informationen  anzeigen 

Ihre  Eingabe  ' (0-2)  '==>  '2 

=====  DATE  08. 05. B 5  ===== 

Msg.  an  ANTHONY  in  SAN  RAFAEL,  Californien,  USA 
VON:  HEM  aus  D’dorf  am  8.5.85 
Hallo  Anthony, 

I  was  expecfcing  your  first  message  today  as  you  announced 
on  the  phone.  From  yQur  brief  description  I  learned  that  you 
had  the  DECATES-LOGO  on  your  screen.  What  happended  that  you 
could  not  leave  the  said  message  under  menue-posi ti on  2  MAI LBOX? 

If  you  have  another  try  tomorrow  please  let  me  know  bevorehand  over 
the  phone.  If  there  are  any  other  Problems,  just  give  me  a  call! 
Final  ly  let  me  know  the  date  and  time  of  your  arrival  here. 

Give  my  kindest  regards  to  the  girls  and  to  BT  (i.e.  BIG  THILO) 

HEM 


— — ■ -  NEXT - - 

hallo  phreaks  ! 

ich  wende  mich  an  die  vielen  64— besitzer,  die  auf ihrem  rechner  einer 
mail  box  laufen  haben  oder  laufen  lassen  wollen  ! 

ich  waere  euch  unglaublich  dankbar,  wenn  DU,  SysOp  XYZ  dich  bei  mir  melden 
wuerdest,  da  ich  denke,  dass  a)  nicht  jedes  rad  pro  mailbox  einmal  erfun¬ 
den  werden  muss  und  dass  b)  wohl  viele  benutzer  die  ewig  gleichen  boxen, 
die  sich  nur  im  impressum  (und  im  namen  des  SysOps)  unterscheiden,  SysOps 
wissen,  dass  ich  z.B.  von  den  1001  KIS-Versi onen  rede,  dass  also  viele 
benutzer  diese  08/15-boxen  satt  haben  und  was  neues  sehen  wollen... 
wer  bock  hat,  mit  mir  zusammen,  oder  auch  alleine,  eine  NEUE,  INNOVATIVE 
BOX  auf  dem  c64  zu  realisieren,  die  weder  auf  KIS  noch  auf  UMC  basiert. 


oder  eine  msg  an  markus  packenius  in  rmi . . .  ok  ? 

uebrigens:  ich  betrachte  meine  Software  als  freeware  ! 
beruht  weder  auf  KIS,  noch  auf  UMC,  noch  auf  MCS  noch  auf... 

ciao 

marc  aurel  AuSZUg  QUS  DeCOteS 
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Marktübersicht: 

Modems  und  Akustikkoppler 

Die  Preise  für  Modems  und  Akustikkoppler  reichen  von  138  bis  1590  Mark. 
Wo  die  Unterschiede  bei  den  Geräten  liegen,  läßt  sich  nur  im  direkten  Vergleich 
feststellen.  Unsere  Marktübersicht  hilft  Ihnen,  die  Übersicht  zu  behalten. 


Die  »Gerätevielfalt«  bei  den  Mo¬ 
dems  und  Akustikkopplern 
reicht  von  einfachen  Platinen, 
an  denen  ein  Mikrofon  und  ein  Laut¬ 
sprecher  angelötet  sind,  bis  zu  op¬ 
tisch  und  technisch  hochwertigen 
Geräten.  An  dieser  Stelle  wollen  wir 
nur  kurz  auf  zwei  Akustikkoppler 
hinweisen.  Alle  anderen  Angaben 
entnehmen  Sie  bitte  der  Tabelle. 

Der  erste  Akustikkoppler  ist  das 
»Akustikkoppler-Modul«  von  Drust. 
Es  handelt  sich  hierbei  um  die  oben 
erwähnte  Platine.  Dieses  Gerät  ist 
nur  all  denen  zu  empfehlen,  die 
über  einen  absolut  schalldichten 
Raum  verfügen.  Nebengeräusche 
machen  jede  Datenfernübertra¬ 
gung  nahezu  unmöglich.  Leserbrie¬ 
fe,  die  die  Redaktion  erreichten,  be¬ 
stätigten  unsere  Testergebnisse. 

Das  zweite  Gerät  ist  der  Akustik¬ 
koppler  »Dataphon  s  21  d«  (bau¬ 
gleich  mit  dem  CTK  1000).  Diese  Ge¬ 
rät  überzeugt  durch  Übertragungs¬ 
genauigkeit  und  niedrigen  Preis. 

Unsere  Marktübersicht  erhebt 
keinen  Anspruch  auf  Vollständigkeit 
und  beruht  auf  den  Angaben  der 
Hersteller.  (rg) 


CCITT 

300FULL 

DUPIEX 


POWER 


1200RX-75TX 

-VIEWTEXT 


Tx  DATA 


■300/300 

75Rx-1200Tj 


Rx  DATA 


CARRIER 


AND  4 

300HJU.\ 

ORIOr- 


LOCALTEST 


MODE 


WS 2000 
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Datenfernübertragung 


Anbieter/ 

a)  FTZ-Nr. 

a)  Völl-/Halb- 

Akku 

a)  Schnittstelle 

a)  User-Port, 

a)  inkl.  /nterface/ 

Hersteller 

b)  Baudrate 

duplex 

Netzteil 

b)  LEDs 

Software 

Gerät 

b)  Originate/ 

Batterie 

b)  Muffen- 

b)  Preis  (in  Mark) 

Answer 

verstellbar 

Stoll 

a)  18.13.1996.00 

a)V 

A/N 

a)  V.24 

a)  U 

a)  - 

ST  300 

b)  300 

b)  O/A 

b)- 

b)  ja 

b)  590,- 

ST  2000 

a)  18.13.1909.00 

a)  V/H 

A/N 

a)  V.24 

a)  U 

a)- 

b)  300  bis  1200 

b)  O/A 

b)- 

b)  ja 

b)  990,- 

ST  2000  (Btx) 

a)  18.13.1965.00 

a)  H 

A/N 

a)  V.24,  DBT03 

a)  U 

a)- 

18.13.1907.00 
b)  75  bis  1200 

b)  O 

b)- 

b)  *2 

b)  990,— 

HSV-Streber 

a)  18.13.1917.00 

a)  V 

A/N/B 

a)  V.24 

a)  U 

a)  *' 

Dataphon  s  21  d 

b)  300 

b)  O/A 

b)  Ans.,  Org.,  CTS 

b)  ja 

b) 298,- 

Stockem 

a)  keine 

a)  V/H 

N 

a)  V.24 

a)U 

a)- 

AS-A  2470 

b)  300 

b)  O/A 

b)  Ans.,  Org. 

b)  nein 

b)  168,- 

AS-A  2480 

a)  beantragt 

a)  V 

N 

a)  V.24 

a)U 

a)  — 

b)  300 

b)  O/Ä 

b)  Ans.,  Org.,  Ein/Aus 

b)  nein 

b)  198,- 

Printtechnik 

a)  keine 

a)  V/H 

— 

a)  — 

a)  U 

a)  I  entfällt,  S 

Universalmodem 

b)  300,  1200/75 

b)  O/A 

b)  Online 

b)  keine  Muffen 

b)  348,—  Bausatz 

CTK 

a)  18.13.1954.00 

a)  V 

A/N 

a)  V.24 

a)  U 

a)  I 

CTK  2000b 

b)  300 

b)  O/A 

b)  DTR,  CD,  RTS,  Ein 

b)  *2 

b)  525,—  *3 

CTK  2000 

a)  18.13.1954.00 

a)  V/H 

N 

a)  V.24 

a)U 

a)  I 

Universalkoppler 

18.13.1952.00  (Btx) 

b)  O/A 

b)  DTR,  CD,  RTS, 

b)*2 

b)  980,-  *3 

b)  300,  1200,  1200/75, 
75/1200 

BRTS,  Ein 

CTK  2003  Btx 

a)  18.13.1953.00 

a)  H 

A/N 

a)  V.24 

a)  U 

3)1 

b)  75/1200 

b)- 

b)  DTR,  CD,  RTS. 

BRTS,  Ein 

b)*2 

b)  980,-  *3 

CTK 

a)  18.13.1955.00 

a)  V/H 

Ä/N 

a)  V.24 

a)U 

a)- 

Minimodem  3005  S 

b)  300 

b)  O/A 

b)  DRS,  DCD,  RCV, 
XMIT 

b)  ja 

b)  655,- 

CTK  1000 

a)  18.13.1917.00 

a)V 

A/N/B 

a)  V.24 

a)U 

a)- 

b)  300 

a)  O/A 

b)  Anw.,  Org.,  CTS 

b)  ja 

b)  261,- 

Software  Express 

a)  18.13.1897.00 

a)V 

N/B 

a)  V.24 

a)  U 

a)l 

AK  300  S 

b)  300 

b)  O/A 

b)  Ein/Aus,  Camer 

b)  ja 

b)  298,- 

AK  300  P 

a)  18.13.1897.00 

a)  V/H 

A/N 

a)  V.24 

a)U 

a)  I 

b)  300 

b)  A 

b)  Ein/Aus,  Carrier, 
Received 

b)  ja 

b)  625,- 

AK  300 

a)  18.13.1897 

a)  V 

N/B 

a)  V.24 

a)U 

a)  I 

b)  300 

b)  O/A 

b  ■  t  /Aus,  Camer 

b)  ja 

b)  385- 

K  1200/1 

a)  18.13.1687.00 

a)  H 

A/N 

a)  V.24,  TTL 

a)U 

a)- 

b)  1200 

b)- 

b)  Ein/Aus,  Carrier 

b)  ja 

b)  1250,— 

K&N  3001 

a)  beantragt 

a)  V 

N 

a)  V.24 

a)U 

a)  I 

b)  300 

b)  O 

b)  Ein/Aus,  Camer 

b)  ja 

b)  298,- 

K  1200/3 

a)  18.13.1687.00 

a)  H 

A/N 

a)  V.24,  TTL 

a)U 

a)  — 

b)  75/1200 

b)- 

b)  Carrier 

b)  ja 

b)  1290,- 

Dynamics 

a)  18.13.1972.00 

a)  V/H 

N 

a)  — 

a)E 

a)  S 

Ascom  Akustikk. 

b)  300 

b)  O/H 

b)  Ein/Aus 

b)  entfällt 

b)  279,- 

Drust 

a)  keine 

a)  V/H 

A/N/B 

a)- 

a)U 

a)  S  (als  Listing) 

Akustikk.-Modul 

b)  300 

b)  O/H 

b)- 

b)  entfällt 

b)  99,— /59  —  (Bausatz) 

CRP 

a)  keine 

a)  V/H 

N 

a)  V.24 

a)  U 

a)  S  (als  Listing) 

WS  2000 

b)  75  bis  1200 

b)  O/A 

b)  Ein/Aus,  Tx  Data, 

Rx  Data,  Carr.,  onl. 

b)  entfällt 

b)  798,- 

Epson 

a)  18.13.1808.00 

a)  H 

N/A 

a)  V.  24 

a)  U 

a)  — 

CX-21 

b)  300 

b)  O/Ä 

b)  Ein/Aus,  Carrier 

b)  ja 

b)  748,- 

CDI 

a)  18.13.1652.00 

a)  V 

N/A 

a)  V.24 

a)U 

a)- 

ACK  300 

b)  300 

b)- 

b)- 

b)  ja 

b)  498,- 

ACK  1200 

a)  18.13.1652.00 

a)  H 

N/A 

a)  V.24 

a)U 

a)  — 

b)  1200 

b)- 

b)- 

b)  ja 

b)  850,- 

ACK  1200/75 

a)  18.13.1652.00 

a)  V 

N/A 

a)  V.24 

a)U 

a)- 

b)  1200/75 

b)- 

b)- 

b)  ja 

b)  898,- 

ACK  75/1200 

a)  18.13.1652.00 

a)V 

N/A 

a)  V.24 

a)U 

a)  — 

b) 75/1200 

b)- 

b)- 

b)  ja 

b)  998,- 

ACK  300  Kiel 

a)  18.13.1652.00 

a)  V 

A/N 

a)  V.24 

a)U 

a)- 

b)  300 

b)- 

b)  Carrier 

b)  ja 

b)  298- 

ÄCKU 

a)  18.13.1652.00 

a)  V/H 

A/N 

a)  V.24,  DBT03 

a)U 

a)  — 

b)  75/1200,  300 

b)- 

b)  Carrier 

b)  ja 

b)  998,- 

Info-Control 

a)  18.13.1909.00 

a)  V/H 

N 

a)  V.21,  V.23 

a)U 

a)- 

CPV  2000 

b)  300/1200,  1200/75 

b)  O/A 

b)  DTR,  CD,  RTS,  BRTS, 
Ein 

b)  ja 

b)  1214,10 

Tandy 

a)  18.13.1801.00 

a)  V/H 

N 

a)  V.24 

a)U 

a)- 

AC  3 

b)  300 

b)  O/A 

b)  Carrier 

b)  ja 

b)  395,- 

Comko 

a)  18.13.1415.00 

a)  V/H 

N 

a)  V.24 

a)U 

a)  — 

CK  211 

b)  300 

b)0 

b)  Online,  Ein/Aus 

b)  ja 

b)  1370,- 

CK  311 

a)  keine 

a)  V/H 

N 

a)  V.24 

a)U 

a)  — 

b)  300 

b)  O/A 

b)  Online,  Ein/Aus 

b)  ja 

b)  1590,- 

*'  zusammen  mit  Interface  und  Software  397,—, 

*2  induktive  Übertragung,  *3  Mengenrabatte  auch  für  Clubs 

4eW 

V“1 


ä.net 
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Info: 

Info-Control  KG, 
Renatastr.  40, 
8000  München  19 


Dataphon 
s  21  d 


Minimodem 

3005 


Stoll  EDV-Peripherie 
GmbH,  Lessingstr.  30, 
5303  Bornheim/Köln 


24, 

München  2 

Stockem  Computer¬ 
technik,  Berghausen 
13,  5778  Meschede 

Printtechnik, 
Stumpergasse  34, 
A-1060  Wien 


CTK,  Langenbrück 
20,  5060  Bergisch 
Gladbach  1 


Software  Express 
Handelsg.  mbH, 
Hugo-Viehoff-Str.  84, 
4000  Düsseldorf  30 


Dynamics 
Marketing  GmbH, 
Große  Bäckerstr,  11, 
20C0  Hamburg  1 


Fotoelektronik  Immo 
Drust,  Landwehrstr.  5, 
6100  Darmstadt 


Computer  Related 
Products, 

Claus  F.  Erbrecht, 
Lappenbergsallee  37, 
2000  Hamburg  20 


Epson  Deutschland 
GmbH,  Am  Seestern 
24,  4000  Düsseldorf  11 

Comko  Computer- 
systemg.  mbH, 
Marsdorfer  Str.  76, 
50CO  Köln  40 


CDI,  Tauentzienstr.  1, 
1000  Berlin  30 


Epson 

CX-21 


Tandy,  Hermann- 
Lingg-Str.  30, 

8000  München  2 
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Wie  sage  ich  es  meinem  EPROM? 

Die  Programmierung  von  EPROMS  hat  ihren  besonderen  Reiz.  Doch  was  ist  das 
eigentlich,  ein  EPROM?  Wir  stellen  die  wichtigsten  EPROM-Typen  der  25er  und 
27er  Reihe  vor  und  zeigen  Ihnen,  wie  man  sie  programmiert. 


Bei  Halbleiterspeichern  muß 
man  zwischen  Festwert-  und 
Schreib-/Lesespeichern  unter¬ 
scheiden.  Die  Festwertspeicher 
gliedern  sich  in  ROMs  (Read  Only 
Memory),  PROMs  (Programable 
ROM),  und  EPROMs.  Die  EPROMs 
haben  gegenüber  den  anderen 
Festwertspeichern  den  Vorteil,  daß 
sie  sich  nach  einer  Programmierung 
wieder  löschen  lassen.  Sie  sind  also 
für  Anwendungen,  in  denen  keine 
größeren  Stückzahlen  anfallen  oder 
öfters  Änderungen  gemacht  wer¬ 
den  müssen,  prädestiniert.  Auch  die 
Preise  bei  den  Speicher-ICs  haben 
in  den  letzten  Jahren  einen  so  erfreu¬ 
lichen  Verlauf  genommen,  daß  es 
sich  in  vielen  Fällen  lohnt,  häufiger 
benötigte  Programme  als  Modul  in 
EPROMs  zu  speichern.  Der  Wer¬ 
mutstropfen  bei  ihrer  Anwendung 
ist  die  relativ  komplizierte  Program¬ 
mierung,  für  die  ein  eigenes  Gerät 
benötigt  wird. 

EPROM-Typen 

Die  ersten  EPROMs  benötigten 
noch  drei  Versorgungsspannungen 
und  waren  nur  mit  großem  Aufwand 
zu  programmieren.  Da  ihr  Preis  in¬ 
zwischen  auch  mehr  als  »Liebhaber¬ 
preis«  zu  sehen  ist,  soll  auf  diese  »an¬ 
tiken«  Stücke  nicht  näher  eingegan¬ 
gen  werden.  Später  gingen  die  Her¬ 
steller  dazu  über,  Speicherbaustei¬ 


ne  mit  einer  5  Volt  Spannungsversor¬ 
gung  zu  produzieren.  Dadurch  wur¬ 
de  der  Aufwand,  EPROMs  zu  pro¬ 
grammieren,  erheblich  reduziert. 
Der  erste  Typ,  der  2508,  hatte  eine 
Kapazität  von  1  KByte.  Alle  EPROMs 
werden  nach  dem  sogenannten 
Byte-wide-Prinzip  gefertigt,  das 
heißt  sie  haben  acht  Datenleitun¬ 
gen.  Dies  hat  den  Vorteil,  daß  zum 
Anschluß  an  einen  8-Bit-Mikropro¬ 
zessor  nur  ein  IC  benötigt  wird.  Hin¬ 
zu  kommt,  daß  die  Pinbelegung  der 
EPROMs  so  konzipiert  ist,  daß  sie 
untereinander  und  zu  vielen  stati¬ 
schen  RAM-ICs  weitgehend  kompa¬ 
tibel  sind. 

EPROMs  mit  2  KByte  heißen  2716 
oder  2516,  wobei  jedoch  beim  Kauf 
von  2716ern  Vorsicht  geboten  ist,  da 


vereinzelt  auch  noch  ältere  3-Span- 
nungstypen  unter  diesem  Namen 
gehandelt  werden.  4  KByte 
EPROMs  gibt  es  im  Handel  unter 
den  Bezeichnungen  2732  und  2532. 
Diese  beiden  Typen  unterscheiden 
sich  in  den  Pins  18  und  21.  Der  Grund 
für  diese  Abweichung  ist  darin  zu 
suchen,  daß  Texas  Instruments,  der 
Hauptlieferant  für  2532er,  bei  ihren 
EPROMs  eine  direkte  Pin-Kompati- 
bilität  zu  den  bestehenden  Masken- 
ROMs  suchte,  während  die  meisten 
anderen  Hersteller  die  4  KByte- 
EPROMs  aufwärtskompatibel  zu 
den  größeren  28poligen  Typen  ma¬ 
chen  wollte.  Das  Bemühen  von  TI 
wird  noch  deutlicher,  wenn  man  den 
2564,  den  8  KByte-Typ  dieses  Her¬ 
stellers,  betrachtet.  So  ist  es  mög- 


2732A 

27G4A 

27128A 

27256 

27512 

27513 

27512 

27256 

27128A 

2764A 

2732A 

VpB 

Vpp 

Vpp 

A15 

-r 

. 

— 

3. 

Vcc 

Vcc 

VCC 

Vcc 

2 

PGM 

PGM 

A7 

Ay 

A7 

A7 

a7 

3 

26 

*13 

A,3 

A13 

N.C. 

Vcc 

Ae 

A6 

Ae 

Ae 

Ae 

< 

25 

A8 

a8 

a8 

Ae 

As 

a5 

a5 

a5 

A5 

A5 

5 

24 

□  *. 

Ag 

Ag 

Ag 

Ag 

Ag 

A4 

A4 

A4 

A4 

A4 

*.l 

S 

23 

□  »« 

A11 

An 

An 

All 

A11 

As 

A3 

A3 

A3 

A3 

*.n 

7 

22 

g  Oe iv  pp 

OE/Vpp 

OE 

OE 

OE 

OE/Vpp 

a2 

a2 

a2 

A2 

a2 

A.C 

• 

21 

ZK 

A10 

A10 

Aio 

A10 

Aio 

Ai 

Ai 

A1 

A1 

Ai 

*'C 

9 

20 

□  Ei 

CE 

CE 

ÜE 

CE 

CE 

Ao 

Ao 

Ao 

Ao 

Ao 

*«C 

10 

19 

go, 

07 

O7 

O7 

O7 

07 

o0 

O0 

O0 

Oo 

o0 

Po 'Oo  | 

11 

18 

go. 

06 

06 

Oe 

Oe 

06 

0, 

0, 

0, 

Ol 

0, 

D,;0,  I 

-7 

17 

gc, 

05 

05 

Os 

05 

O5 

02 

02 

o2 

o2 

02 

16 

□  °< 

04 

O4 

O4 

O4 

O4 

GND 

GNO 

GND 

GND 

GND 

GN° 

go, 

Op 

O3 

O3 

O3 

0.1 

Bild  2.  Der  brandneue  27513  und  seine  kleineren  Vorgänger  im  Vergleich  (Qm«*:  Intel) 


Bild  1.  2564  in  einem  24poligen  8  KByte 
ROM-Sockel,  VPP  muß  an  +5  V,  CS,  und  CS2 
an  Masse  liegen 
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lieh,  dieses  28polige  IC  direkt  mit 
dem  unteren  Teil  in  einen  24poligen 
Sockel  für  ein  8  KByte-ROM  zu  set¬ 
zen,  wie  zum  Beispiel  das  Kernal- 
ROM  des  C  64,  falls  es  gesockelt  ist. 
Die  Pins  1,  2,  27  und  28  sind  einfach 
wie  in  Bild  1  gezeigt  zu  beschälten. 
Diesen  Vorteil  des  2564  muß  man  je¬ 
doch  mit  einem  etwas  höheren  Preis 
bezahlen. 

Der  bei  weitem  verbreitetere  8 
KByte-Typ  ist  der  2764.  Er  ist  zur  Zeit 
das  EPROM  mit  dem  günstigsten 
Preis/Bit-Verhältnis.  Die  Typenbe¬ 
zeichnung  ist  bei  diesen  EPROMs 
äußerst  logisch  aufgebaut.  Die  Zahl 
hinter  der  25  beziehungsweise  27 
gibt  die  Kapazität  des  Speichers  in 
KBit  an.  Also:  2764  bedeutet  64  KBit 
oder  8  KByte.  Folglich  heißen  die 
größeren  Typen  27128  (16  KByte), 
27256  (32  KByte)  und  27512  (64  KBy¬ 
te).  Ein  EPROM  mit  1  Megabit  Spei¬ 
cherkapazität  ist  von  NEC  angekün¬ 
digt,  wird  jedoch  in  einem  40poligen 
Gehäuse  angeboten  werden. 

Diese  immensen  Speichergrößen 
sind  aber  im  Moment  den  professio¬ 
nellen  Anwendern  Vorbehalten  und 
können  von  Homecomputern  mit 
8-Bit-CPUs  nicht  sinnvoll  verwaltet 
werden.  Einen  sehr  geeigneten 
Schritt  hm  zur  leichteren  Verwaltung 


Bild  4.  Schneller  Programmieralgorithmus 

(Quelle:  Intel) 


großer  EPROM-Bänke  hat  Intel  mit 
ihrem  27513  (Bild  2)  gemacht.  Dieses 
EPROM  ist  seitenorientiert  aufge¬ 
baut,  das  heißt  es  besteht  aus  vier 
EPROM-Bänken  mit  jeweils  16  KBy¬ 
te.  Die  Auswahl  der  aktiven  Bank  er¬ 
folgt  über  einen  Schreibbefehl  in 
ein  internes  Register  des  27513. 
Beim  Schreibbefehl  werden  die  an 
den  Datenleitungen  DO  und  Dl  an¬ 
liegenden  Informationen  übernom¬ 
men  und  zur  Seitenadresse  deco¬ 
diert.  Beim  Einschalten  der  Versor¬ 
gungsspannung  wird  automatisch 
die  Seite  Null  aktiviert,  so  daß  man 
einen  definierten  Systemzustand  er¬ 
hält.  Mit  einem  27513  lassen  sich  also 
mit  einem  Befehl  vier  16  KByte- 
Blöcke  umschalten.  Es  ließen  sich 
also  auch  umfangreichere  Program¬ 
me  auf  kleinere  Computer  um¬ 
schreiben  und  in  einem  Chip  unter¬ 
bringen.  Für  den  Expansion-Port 
des  C  64  wräre  dieses  IC  geradezu 
ideal.  Es  wird  jedoch  noch  zirka 
zwei  Jahre  dauern,  bis  dieser  Bau¬ 
stein  preislich  mit  anderen  Lösun¬ 
gen  konkurrieren  kann. 

Nach  soviel  Zukunftsmusik  nun 
wieder  zur  Realität:  Der  Bedeutung 
der  einzelnen  Pins  eines  EPROMs 
und  der  Programmierung. 

Der  2764  unter  *ler  Lupe 

Das  28polige  Gehäuse  des  2764 
(Bild  2)  hat  13  Adreßleitungen,  AO  bis 
A12.  Sie  dienen  zur  Auswahl  der  an¬ 
gesprochenen  Speicherstelle  und 
sind  binär  codiert.  Der  Chip  hat  acht 
Datenleitungen  OO  bis  07,  die  bei 
einem  Lesezugriff  das  Datenwort 
führen.  Während  der  Programmie¬ 
rung  müssen  hier  die  zu  program¬ 
mierenden  Bytes  angelegt  werden, 
Ferner  gibt  es  noch  eine  Chip- 
Enable-(CE),  eine  Output-Enable- 
(OE)  und  eine  Program-Leitung 
(PGM).  Ihre  Funktionen  zeigt  Bild  3. 
Die  5  Volt-Versorgungsspannung 
wird  an  Pin  28  (Vcc)  angeschlossen, 
Pin  1  (Vpp)  führt  während  der  Pro¬ 
grammierung  21  Volt  sonst  5  Volt.  Al¬ 
le  Spannungen  beziehen  sich  auf 
das  mit  Pin  14  (GND)  verbundene 
Massepotential. 

Konventionelle  Programmierung 

Beim  Programmbeginn  muß  PGM 
auf  Low-Pegel  liegen.  Dann  erst  darf 
die  Programmierspannung  von  21 
Volt  angelegt  werden.  Diese  Span¬ 
nung  kann  bis  zum  Ende  der  Pro¬ 
grammierung  angelegt  bleiben, 
muß  also  nicht  zum  Verifizieren  der 
Daten  abgeschaltet  werden.  Nur  vor 
der  Entnahme  des  ICs  aus  der  Fas¬ 
sung  sollte  man  die  Spannung  ab¬ 
schalten,  um  ungewollte  Program¬ 
mierungen  oder  sogar  die  Zerstö¬ 
rung  des  Chips  zu  vermeiden.  Wäh¬ 


rend  der  gesamten  Programmie¬ 
rung  muß  der  2764  selektiert  sein, 
das  heißt,  der  Chip-Enable-Eingang 
auf  Low-Pegel  liegen.  Mit  OE  =  high 
werden  die  Ausgänge  des  EPROMs 
abgeschaltet.  Jetzt  werden  die 
Adresse  und  das  entsprechende 
Datenwort  angelegt  und,  wenn  die¬ 
se  stabil  anliegen,  die  Programmie¬ 
rung  durch  einen  50  ms  langen  ne¬ 
gativen  Impuls  an  PGM  vollzogen. 
Jetzt  werden  die  Daten  von  den  Aus¬ 
gängen  OO  bis  07  des  EPROMs  ent¬ 
fernt  und  der  Inhalt  der  gerade  pro¬ 
grammierten  Speicherzelle  mit  OE 
=  Low-Pegel  ausgelesen.  Stimmt  er 
nicht  mit  dem  Sollwert  überein,  so  ist 
entweder  das  IC  oder  das  Program¬ 
miergerät  nicht  in  Ordnung.  Ist  die 
Zelle  korrekt  »gebrannt«,  kann  man, 
nachdem  OE  wieder  auf  High-Pegel 
gebracht  wurde,  mit  dem  nächsten 
Byte  fortfahren.  Da  die  vollständige 
Programmierung  eines  2764  mit  die¬ 
sem  Verfahren  zirka  7  Minuten  dau¬ 
ert,  haben  sich  die  meisten  Herstel¬ 
ler  einen  schnelleren  Programmier¬ 
algorithmus  ausgedacht  (Bild  4),  der 
die  Programmierzeit  für  einen  2764 
auf  zirka  75  Sekunden  verkürzt.  Die¬ 
se  immense  Zeiteinsparung  ist  vor 
allem  für  den  kommerziellen  An¬ 
wender  wichtig,  da  sie  oftmals  die 
Anschaffung  eines  teuren  Produk- 
tions-EPROMmers,  der  mehrere 
ICs  gleichzeitig  brennen  kann, 
überflüssig  macht.  Aber  auch  für 
den  Amateur  ist  eine  solche  Zeitein¬ 
sparung  angenehm,  zumal  der 
schnelle  Algorithmus  keine  umfang¬ 
reichen  Änderungen  an  der  Hard¬ 
ware  des  Programmiergeräts  benö¬ 
tigt. 

Der  schnelle  Programmieralgorithmus 

Um  die  Methode  der  schnellen 
Programmierung  zu  verstehen,  ist  es 
hilfreich,  sich  eine  Vorstellung  von 
dem  zu  machen,  was  sich  bei  der 
Programmierung  in  einer  Speicher¬ 
zelle  abspielt.  Eine  EPROM-Zelle 
besteht  im  wesentlichen  aus  einem 
Feldeffekttransistor  mit  isoliertem 
Gate.  Die  Spannung  des  Gates  be¬ 
einflußt  maßgeblich  den  Strom  zwi¬ 
schen  Source  und  Drain,  den  bei¬ 
den  anderen  Anschlüssen  des  Tran¬ 
sistors.  Wird  nun  die  Zelle  bei  einem 
Lesezugriff  angesprochen,  so  er¬ 
zeugt  dieser  Strom  einen  Span¬ 
nungsabfall,  der  mit  einem  festen 
Wert,  der  Schwellspannung,  vergli¬ 
chen  wird.  Ist  die  Spannung  kleiner 
als  die  Schwellspannung,  also  das 
Potential  am  Gate  des  Zelltransistors 
noch  zu  niedrig,  dann  ist  der  korre¬ 
spondierende  Ausgang  des  Spei¬ 
chers  auf  High-Pegel.  Nach  dem  Lö¬ 
schen  mit  UV-Licht  oder  beim  Kauf 
eines  neuen  Chips  sind  die  Gates 
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dei  Zelltransistoren  ungeladen. 
Deshalb  haben  neue  EPROMs  im¬ 
mer  den  Inhalt  »$FF«.  Durch  die  Pro¬ 
grammierung  wird  die  Ladung  auf 
dem  Gate  erhöht  und  es  kann  nun, 
wenn  man  während  des  Program- 
mierens  öfters  den  Speicherinhalt 
überprüft,  der  Zeitpunkt  bestimmt 
werden,  zu  dem  die  Daten  das  erste 
Mal  richtig  in  den  Zellen  stehen.  Das 
bedeutet  jedoch  nicht,  daß  der  In¬ 
halt  nun  stabil  für  immer  in  den  Zel¬ 
len  erhalten  bleibt,  sondern  daß  die 
Schwellspannung  zum  ersten  Mal 
überschritten  wurde.  Die  schnellen 
Programmieralgorithmen  messen 
die  Zeit  bis  dies  geschieht  und  pro¬ 
grammieren  dann  noch  einmal  ein 
Vielfaches  dieser  Zeiten.  (Je  nach 
Hersteller  zwischen  dem  ein-  und 
vierfachen). 

Damit  die  Daten  über  den  gesam¬ 
ten  Temperatur-  und  Versorgungs¬ 
spannungsbereich  stabil  sind,  wird 
von  allen  schnellen  Algorithmen  ei¬ 
ne  weitere  Aktion  vor  der  eigentli¬ 
chen  Programmierung  unternom¬ 
men. 

Die  Versorgungsspannung  wird 
von  5  auf  6  Volt  erhöht.  Die  Schwell¬ 
spannung,  die  zum  Vergleich,  ob  ei¬ 
ne  Zelle  geladen  ist  oder  nicht,  her¬ 
angezogen  wird,  wird  nämlich  aus 
der  Versorgungsspannung  abgelei¬ 
tet.  Ist  diese  Schwellspannung  nun 
etwas  höher,  so  läßt  der  Algorithmus 
die  Speicherzellen  alle  etwas  länger 
brennen,  als  es  für  den  normalen 
Betrieb  eigentlich  nötig  wäre.  Dies 
bringt  zusätzliche  Sicherheit,  beson¬ 
ders  an  den  Grenzen  des  erlaubten 
Betriebsbereiches  und  eine  gute 
Langzeitstabilität. 

Programmiergeräte 

Das  Komplizierteste  am  Selbstbau 
eines  EPROM-Programmiergerätes 
ist  das  programmgesteuerte  Um¬ 
schalten  von  stabilen  Spannungen 
an  den  verschiedenen  Pins  der 
Wechselfassung.  Um  ein  universell 
verwendbares  Gerät  zu  erhalten, 
sind  drei  Programmierspannungen 
(12,5  V,  21  V,  25  V)  und  die  Möglich¬ 
keit,  für  den  schnellen  Algorithmus 
die  Versorgungsspannung  auf  6  Volt 
zu  erhöhen,  vorzusehen.  Die  Aus¬ 
wahl  zwischen  den  EPROM-Typen 
kann  man  entweder  über  Schalter 
oder  rem  softwareseitig  machen. 
Die  Adressen-,  Daten- und  Steuerlei¬ 
tungen  werden  am  einfachsten  über 
Parallel-Ports  geführt,  da  diese  sehr 
leicht  zu  programmieren  sind,  Ein 
großes  Problem  bleibt  die  Strom¬ 
versorgung,  Es  ist  wünschenswert, 
ohne  einen  zusätzlichen  Netztrafo 
auszukommen,  nicht  nur  weil  mei- 
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stens  die  letzte  Steckdose  schon  be¬ 
setzt  ist,  sondern  weil  es  für  einen 
unerfahrenen  Bastler  die  unliebsa¬ 
me  Bekanntschaft  mit  220  Volt  zu  ver¬ 
meiden  hilft.  Für  den  C  64  bietet  sich 
die  Benutzung  des  User-Ports  an,  da 
er  die  9  Volt  Wechselspannung  des 
Computers  an  den  Pins  10  und  11 
führt.  Nachteilig  für  den  Selbstbau 
ist  die  äußerst  schwierige  Program¬ 
mierung  der  I/O-Leitungen.  Als  Al¬ 
ternative  zum  User-Port  bliebe  nur 
noch  der  Expansion-Port,  der  einen 
sehr  einfachen  Anschluß  von  Port¬ 
bausteinen  gestattet. 

Der  Nachteil  dieser  Alternative  ist 
die  Notwendigkeit,  die  Program¬ 
mierspannung  durch  einen  Gleich- 
spannungswandler  aus  den  5  Volt  zu 
gewinnen.  Erstens  sind  solche 
Wandler  nicht  gerade  billig,  und 
zweitens  wird  dadurch  sehr  schnell 
die  Belastungsgrenze  der  Compu¬ 
terstromversorgung  erreicht.  Aus 
den  5  Volt  sollten  nicht  mehr  als  300 
mA  entnommen  werden,  während 
die  9  Volt-Spannung  etwas  unemp¬ 
findlicher  auf  Überlastung  reagiert. 
Wem  nach  diesem  kleinen  Einblick 
in  die  Problematik  eines  solchen 
Projektes  noch  nicht  der  Mut  zum 
Selbstbau  eines  Programmiergerä¬ 
tes  verlassen  hat,  dem  sei  angera¬ 
ten,  sich  die  Datenblatt  ;  der  Her¬ 
steller  zu  Gemüte  zu  führen.  Jedoch 
sollte  ein  solcher  Selbstbau  wirklich 
dem  Freak  Vorbehalten  bleiben,  da 
mit  Spannungen  gearbeitet  wird, 
die  den  C  64  leicht  zerstören  kön¬ 
nen. 


XROM  und  GAME 

Der  C  64  hat  die  Möglichkeit,  im 
Expansion-Port  EPROM-Module 
aufzunehmen,  die  in  den  Adreßbe- 
reichen  $8000  bis  $9FFF  und  $AOOO 
bis  $BFFF  liegen.  Um  dem  Compu¬ 
ter  mitzuteilen,  ob  in  dem  Expan¬ 
sion-Port  ein  EPROM  steckt,  hat  er 
die  Leitungen  XROM  und  GAME. 
Wird  XROM  auf  Low-Pegel  gelegt, 
schaltet  der  Computer  sein  internes 
RAM  von  $8000  bis  $9FFF  ab  und  er¬ 
zeugt  für  diesen  Bereich  einen  Chip- 
Select  (ROML),  das  direkt  an  den 
Chip-Select-Eingang  des  EPROMs 
gelegt  werden  kann.  Wenn  GAME 
auf  low  gelegt  wird,  so  schaltet  der 
C  64  seinen  Basic-Interpreter  ab 
und  erzeugt  für  den  Bereich  von 
$A000  bis  $BFFF  das  Chip-Select- 
Signal  (ROMH),  das  ebenfalls  an 
den  Chip-Select-Eingang  des 
EPROMs  gelegt  werden  kann.  Es  ist 
verständlich,  daß  dieser  Bereich 
nur  für  Maschinensprache  oder  an¬ 
dere  nicht  auf  das  Basic  zugreifende 
Programme  geeignet  ist, 


C  64 


Der  C  64  kann  Programme  im 
$8000-Bereich  als  Autostart-Pro¬ 
gramme  identifizieren,  Als  Indiz 
dient  ihm  der  CBM80-Code  in  den 
Adressen  von  $8004  bis  $8008.  Zu 
beachten  sind  die  nicht  dem  ASCII- 
Code  entsprechenden  Buchstaben¬ 
codes  des  C  64.  Sind  also  die  Spei- 

Autostart 

cherzellen  von  $8004  an  mit  den 
HEX-Werten  $C3,  $C2,  $CD,  $38  und 
$30  gefüllt,  so  springt  der  Computer 
indirekt  über  die  Adresse  $8000  in 
das  Programm.  ($8000  =  Low-Adres- 
se  und  $8001  =  High-Adresse).  In 
den  Adressen  $8002  und  $8003  steht 
der  neue  NMI-Vektor  im  Low-/High- 
Format. 

Basic-Programme 

Um  Basic-Programme  mit  Auto¬ 
start  in  EPROMs  zu  brennen,  emp¬ 
fehlen  wir  einen  Blick  in  die  Ausga¬ 
be  9/84,  Seite  163.  In  dem  Artikel  ist 
ein  Verschiebeprogramm  in  Ma¬ 
schinensprache  abgedruckt,  womit 
ein  nach  $8100  verschobenes  Basic  - 
Programm  wieder  korrekt  zurück¬ 
gelegt  und  gestartet  wird. 

Mit  dieser  Hilfe  müßte  es  möglich 
sein,  ein  einfaches  Programm  zu 
schreiben,  das  ein  Basic-Programm 
einfach  hinter  den  Lader  schreibt 
und  für  den  Prommer  als  HEX-Da- 
tei  zum  Beispiel  nach  $2000  schiebt. 

EEPROMs 

Eine  neue  Entwicklung  der  Halb¬ 
leiterindustrie  ist  das  EEPROM,  ein 
Speicher,  der  sich  elektrisch  lö¬ 
schen  läßt  (statt  wie  bisher  mit  UV- 
Licht)  und  seinen  Inhalt  beim  Ab¬ 
schalten  der  Versorgungsspannung 
nicht  verliert.  Diese  Bausteine  müs¬ 
sen  zum  Programmieren  nicht  aus 
der  Schaltung  entfernt  werden.  Die 
Schreibdauer  liegt  bei  zirka  10  ms. 
Das  ist  verglichen  mit  RAM-ICs  sehr 
hoch.  Deshalb  gibt  es,  vor  allem  von 
kleineren  amerikanischen  Firmen, 
Speicher,  die  ein  statisches  RAM  mit 
einem  EEPROM  auf  einem  Chip 
kombinieren.  Solche  NOVRAMs 
(Nonvolatile  Random  Access  Memo¬ 
ry)  haben  die  kurzen  Zugriffszeiten 
eines  RAMs  und  die  Möglichkeit, 
mit  einem  Befehl  den  gesamten 
RAM-Inhalt  auf  einmal  in  die 
EEPROM-Zellen  zu  schreiben.  Es 
müssen  aber  noch  einige  techni¬ 
sche  Probleme  beseitigt  werden, 
wie  etwa  die  zur  Zeit  auf  zirka  10000 
Schreibzyklen  pro  Speicherzelle 
beschränkte  Lebensdauer. 

(Klaus  Zietlow,  Arnd  Wängler/ah) 
Ausgabe 
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Frisch  gebrannt  ist  halb  gespeichert 


Bild  1.  Gestestete  EPROM-Programmiergeräte;  Eprom  64  (1),  Thienel  (5),  John-Hall  (4), 
Dela  (3),  PP  64  (2) 


Die  andere  Hälfte,  die 
Sie  zum  Programmieren 
von  EPROMs  brauchen, 
ist  ein  EPROM-Program- 
miergerät.  Unser  Ver- 
gleicnstest  stellt  einige 
Modelle  auf  eine  harte 
Probe. 

Es  ist  fast  ein  Jahr  her,  seit  wir  Ih¬ 
nen  das  letzte  Mal  EPROM-Pro¬ 
grammiergeräte  vorgestellt  ha¬ 
ben.  Damals  galt  jemand,  der  sich 
seine  eigenen  Speicherbausteine 
programmierte  noch  als  Insider  und 
Freak,  Mittlerweile,  und  die  täglich 
bei  uns  eingehenden  Anfragen  be¬ 
weisen  das,  beschäftigt  sich  ein 
Großteil  der  C  64-Besitzer  mit  dieser 
Art  der  Datenspeicherung.  Mit  gu¬ 
tem  Grund,  denn  erst  die  Program¬ 
mierung  von  EPROMs/PROMs  er¬ 
laubt  es,  »Ladezeiten«  auf  Nanose- 
kunden  zu  reduzieren.  So  sind  bei¬ 
spielweise  Änderungen  des  Be¬ 
triebssystems  oder  neue  Zeichen¬ 
sätze  am  besten  im  Computer  aufge¬ 
hoben,  Der  Erfolg  und  das  Interesse 
der  Hypra-Perfekt-Kernal-Version 
zeigt,  wie  reizvoll  gerade  diese  An¬ 
wendungsart  ist. 

Um  aber  in  der  Lage  zu  sein, 
EPROMs/PROMs  zu  programmie¬ 
ren,  benötigt  man  ein  Zusatzgerät. 
Diese  Erweiterung,  die  entweder 
am  User-Port  (Regelfall)  oder  aber 
am  Expansion-Port  (Ausnahme)  an¬ 
geschlossen  wird,  erfüllt  mehrere 
Aufgaben.  Zum  einen  ist  es  möglich, 
EPROMs  zu  lesen  und  deren  Inhalt 
auf  Diskette  abzuspeichern,  zum  an¬ 
deren  können  beliebige  Program¬ 
me  von  Diskette  auf  ein  neues 
EPROM  übertragen  werden. 

Eines  unserer  Testgeräte  kann  so¬ 
gar  ähnlich  wie  ein  Floppy-Lauf- 
werk  bedient  werden  und  erlaubt 
Befehle  wie  GET,  INPUT,  PRINT, 
LOAD,  SAVE.  Dadurch  kann  es  auch 
die  brandneuen  EEPROMs  (Electri- 
cal  Ereasable  Programmable  Read 
Only  Memorys)  verarbeiten. 

Keines  unserer  Testgeräte  kostet 
mehr  als  300  Mark.  Selbst  wenn  man 
den  Preis  des  Computers  noch  hin¬ 
zurechnet,  erhält  man  eine  EPROM- 
»Brennerei«,  die  Leistungen  wie  ei¬ 
ne  professionelle  Anlage  hat,  aber 
nur  einen  Bruchteü  davon  kostet. 


Unser  Testfeld  bestand  aus  msge- 
samt  secta  .-Geräte», denen 
aber  eines  disquallfizieri  werden 
mußte.  Es  war  eine  fast  lOOprozen- 
tige  Kopie  des  EPROM  64  von  Roß¬ 
möller  (Nummer  1  im  Bild).  Sowohl 
die  Software,  als  auch  der  Aufbau 
der  Hardware  wurde  vom  Prinzip 
her  nicht  verändert.  Es  wird  eben 
nicht  nur  bei  Rolex  und  Cartier  ge¬ 
klaut,  sondern  auch  im  Zusatzgerä¬ 
tehandel. 

Der  EPROM  64  nahm  nochmals 
am  Test  teil,  aber  als  Referenzgerät. 
Alle  Testkandidaten  wurden  mit  den 
Leistungen  des  EPROM  64  vergli¬ 
chen,  der  ja  immerhin  schon  eme 
über  ein  Jahr  alte  Entwicklung  ist. 
Zum  Test  waren  angetreten:  Das 
Thienel-Programmiergerät  (Num¬ 
mer  5),  das  Gerät  von  John  Hall 
(Nummer  4),  das  Dela-Program- 
miergerät  (Nummer  3)  und  der  PP  64 
von  Indutronic  (Nummer  2). 

Der  Super-EPROMmer 

Gleich  vom  ersten  Moment  an  hat 
der  PP  64  von  Indutronic  (Nummer 
2)  einen  sehr  guten  Eindruck  ge¬ 
macht.  Er  ist  sehr  sauber  aufgebaut, 
bedarf  keiner  zusätzlichen  Schalter 
mehr  auf  der  Platine,  hat  ein  ausführ¬ 
liches  Handbuch  und  besticht 
durch  seine  Leistungsfähigkeit.  Mit 
dem  PP  64  können  nicht  nur  so  gut 
wie  alle  EPROM-Typen  (siehe  Ta¬ 
belle)  programmiert  werden,  er  ver¬ 
fügt  auch  über  eine  Funktion,  mit 


der  EPROMs  von  Basic  aus  wie  ein 
Floppy-Laufwerk  angesprochen 
werden.  Man  kann  sich  sogar  eine 
Art  Directory  des  EPROMs  anle- 
gen.  Auch  Befehle  wie  OPEN  und 
PRINT  #  sind  möglich,  die  Gerätea¬ 
dresse  des  Gerätes  ist  in  diesen  Fäl¬ 
len  16.  Zusätzlich  zu  dieser  Funktion 
bietet  die  mitgelieferte  Software  ei¬ 
niges  an  Bedienungskomfort,  der  ei¬ 
gentlich  kaum  Wünsche  offen  läßt 
(Tabelle). 

Der  PP  64  beweist,  daß  nicht  un¬ 
bedingt  jedes  EPROM  mit  ein  und 
demselben  Programmieralgorith¬ 
mus  gebrannt  werden  muß.  Je  nach 
gewähltem  EPROM-Typ  wird  einer 
von  vier  verschiedenen  Algorith¬ 
men  verwendet.  Das  stellt  nicht  nur 
sicher,  daß  EPROMs  die  für  sie  opti¬ 
male  Programmierzeit  bekommen, 
sondern  auch  eine  lange  Lebens¬ 
dauer  der  EPROMs.  Bei  einem  im¬ 
mer  noch  relativ  hohen  Preis  für 
EPROMs  ist  das  besonders  wichtig. 
Es  ist  ein  einfaches  Rechenexem¬ 
pel:  Ein  schlechtes  Programmierge¬ 
rät  zerstört  so  manches  EPROM 
schon  nach  kurzer  Zeit.  Ein  gutes 
Programmiergerät  erlaubt  aber  die 
EPROMs  in  ihrer  ursprünglichen 
Funktion,  nämlich  als  mehrfach 
lösch-  und  beschreibbaren  Spei¬ 
cherbaustein  zu  verwenden.  Die 
vier  Programmieralgorithmen  des 
PP  64  garantieren  das.  Allerdings  ist 
er  mit  einem  Preis  von  1953  österrei¬ 
chischen  Schillingen  (279  Mark) 
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auch  nicht  gerade  billig.  Zu  den  wei¬ 
teren  Besonderheiten  gehören  eine 
Löschroutine  beim  Programmieren 
von  EEPROMs  und  ein  automati¬ 
sches  Verify  jedes  programmierten 
Bytes.  Durch  seinen  Anschluß  am 
User-Port  des  C  64  ist  der  PP  64  uni¬ 
versell  am  C  64/VC  20  ohne  weitere 
Stromzuführung  zu  betreiben.  Alle 
Programmierspannungen  werden 
aus  den  dort  zur  Verfügung  stehen¬ 
den  9  Volt/5  Volt  erzeugt.  Die  Bela¬ 
stung  des  Netzteils  hält  sich  dabei  in 
Grenzen.  Seine  weit  gefächerten 
Programmierfähigkeiten,  seine 
komfortable  Software  und  sein  Nor¬ 
menkonformität  machen  den  PP  64 
zum  Spitzenreiter  unseres  Tests.  Er 
schlägt  damit  auch  unseren  letztjäh¬ 
rigen  Testsieger. 

Der  Preiswerte 

Das  Programmiergerät  von  Dela 
(Nummer  3)  ist  das  preiswerteste 
der  getesteten  Geräte.  Bei  einem 
Preis  von  159  Mark  für  das  fertige 
Gerät  (Bausatz  79  Mark  ohne  Sockel, 
109  Mark  mit  Textool-Sockel)  bietet 
das  Dela-Programmiergerät  durch¬ 
aus  sehenswerte  Leistungen.  Zwar 
programmiert  es  nur  EPROMs  vom 
Typ  27xxx  bis  hin  zum  27128,  da  die¬ 
se  aber  wohl  die  gebräuchlichsten 
sein  dürften,  reicht  es  in  den  mei¬ 
sten  Fällen.  Auch  das  Dela-Pro- 
grammiergerät  wird  am  User-Port 
angeschlossen  und  kommt  eben¬ 
falls  ohne  zusätzliche  Schalter  aus. 
So  gesehen  ist  er  sogar  besser  als 
unser  Referenzgerät,  bei  dem  ja  im¬ 
mer  noch  zwei  Schalter  bedient  wer¬ 
den  müssen.  Die  zugehörige  Softwa¬ 
re  erfüllt  fast  alle  Ansprüche.  Es  ist 
sogar  ein  Monitor  eingebaut,  des¬ 
sen  Funktionen  durchaus  professio¬ 
nell  sind.  Er  kennt  die  Befehle  LO¬ 
AD,  SAVE,  FILL,  DISASSEMBLE, 
MEMORYDISPLAY,  HUNT,  TRANS¬ 
FER,  GO,  WALK  sowie  eine  Hex- 
Dez-Umrechnung.  Nur  zwei  Dinge 
sind  es,  die  beim  Arbeiten  mit  dem 
Dela-Programmiergerät  fehlen: 
Zum  einen  ist  keine  Funktion  vorge¬ 
sehen,  um  den  Speicherinhalt  des 
EPROMs  mit  dem  des  C  64  zu  ver¬ 
gleichen,  zum  anderen  wird  keine 
Plausibilitätskontrolle  der  Eingaben 
durchgeführt.  Eingabefehler  beim 
Programmieren  sind  deshalb  nicht 
auszuschließen. 

Die  wesentlichste  Besonderheit 
des  Dela-Programmiergerätes  sind 
seine  zwei  Programmiergeschwin¬ 
digkeiten.  Im  Normalmodus  wird 
mit  50  Millisekunden  programmiert, 
ein  2764-EPROM  benötigt  auf  diese 
Weise  ungefähr  7  Minuten.  Im  Fast- 
Modus  wird  die  Programmierzeit 
auf  2  bis  5  Millisekunden  pro  Byte 
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herabgesetzt.  Das  gleiche  EPROM 
ist  dann  schon  nach  22  Sekunden 
fertig.  Positiv  ist  auch,  daß  leere  By¬ 
tes  ($FF)  nicht  programmiert  wer¬ 
den  (denn  das  ist  ja  der  normale  In¬ 
halt  eines  EPROMs).  Mit  dem  Einzel- 
Byte-Modus  können  auch  Teile  ei¬ 
nes  EPROMs  programmiert  wer¬ 
den.  Das  Dela-Programmiergerät 
zeichnet  sich  vor  allem  durch  seinen 
Preis  und  die  doch  recht  gute  Soft¬ 
ware  aus.  Wie  sich  EPROMs,  die  im 
Fast-Modus  programmiert  wurden 
auf  Dauer  verhalten,  läßt  sich  leider 
erst  in  ein  paar  Jahren  sagen,  denn 
dann  besteht  die  Gefahr  des  Daten¬ 
verlustes. 

Module  leicht  erstellt 

Das  Programmiergerät  von  John 
Hall  (Nummer  4)  beschränkt  sich 
ebenfalls  auf  die  Programmierung 
der  27xxx-Reihe.  Allerdings  können 
mit  diesem  Programmiergerät  auch 
EPROMs  vom  Typ  27256  gebrannt 
werden.  Dafür  kostet  das  John-Hall- 
Programmiergerät  aber  mit  198 
Mark  auch  30  Mark  mehr  als  das 
Dela-Programmiergerät.  Damit  sind 
die  besonderen  Fähigkeiten  des 
John-Hall-Programmiergerätes  al¬ 
lerdings  bei  weitem  noch  nicht  er¬ 
schöpft.  Zwar  .muß  bei  ihm  immer 
noch  ein  Schalter  belangt  werden, 
der  Rest  wird  aber  von  der  sehr 
komfortablen  Software  eingestellt. 
Sie  erlaubt  vor  allem  das  freie  Verle¬ 
gen  der  Treibersoftware  in  ver¬ 
schiedene  Bereiche,  so  daß  es  in 
den  seltensten  Fällen  zu  Konflikten 
mit  Programmen,  die  einen  be¬ 
stimmten  Speicherbereich  belegen, 
kommt.  Die  eigentliche  Besonder¬ 
heit  dieses  Gerätes  ist  aber  die  Fä¬ 
higkeit,  von  jedem  Basic-Programm 
bis  zu  8  KByte  Länge  ein  selbststar¬ 
tendes  Modul  zu  erstellen.  In  die¬ 


sem  Modul  werden  Verschieberou¬ 
tinen  und  Initialisierungsbefehle  au¬ 
tomatisch  mitprogrammiert.  Basic- 
Programme  mit  mehr  als  8  KByte 
müssen  aus  mehreren  Program¬ 
miervorgängen  zusammengesetzt 
werden. 

Das  John-Hall-Programmiergerät 
verfügt  über  einen  automatischen 
Leertest  und  ist  voll  menügesteuert. 
Zusammen  mit  der  ebenfalls  von 
diesem  Hersteller  erhältlichen 
128-KByte-Platine  können  somit  re¬ 
gelrechte  ROM-Erweiterungen  von 
enormer  Größe  gebaut  werden.  Da 
das  John-Hall-Programmiergerät 
nur  einen  Programmieralgorithmus 
von  50  Millisekunden  besitzt,  dauert 
das  Programmieren  eines  2764- 
EPROMs  zirka  7  Minuten.  Gemes¬ 
sen  an  seinen  Fähigkeiten,  kann  die¬ 
sem  Gerät  ein  befriedigendes 
Preis-/Leistungs-Verhältnis  beschei¬ 
nigt  werden. 

Es  geht  auch  am 
Expansion-Port 

Das  Thienel-Programmiergerät 
wird  im  Gegensatz  zu  den  anderen 
Geräten  am  Expansion-Port  abge¬ 
schlossen.  Er  benötigt  deshalb  auch 
eine  zusätzliche  Stromversorgung. 
Dafür  zeichnet  sich  das  Gerät  aber 
durch  seine  enorme  Leistungsfähig¬ 
keit  aus.  Die  Treibersoftware  befin¬ 
det  sich  direkt  auf  dem  Gerät  und 
startet  automatisch  (abschaltbar). 
Zusätzlich  ist  sogar  noch  ein  weite¬ 
rer  Steckplatz  für  ein  2764-EPROM 
vorgesehen.  Bei  diesem  Gerät  müs¬ 
sen  keinerlei  Schalter  bedient  wer¬ 
den,  denn  die  Auswahl  der  EPROM- 
Typen  wird  rein  über  Software  ge¬ 
steuert.  Fast  alle  derzeit  wichtigen 
Typen  sind  programmierbar. 

Fortsetzung  auf  Seite  160 
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Merkmal 

Gerät  EPROM  64 
Roßmöller 

Dela 

PP  64 
Indutronic 

Thienel 

John  Hall 

Anschluß 

User-Port 

User-Port 

User-Port 

Expansion- 

Port 

User-Port 

Auswahl  des  Eprom-Typs  über 

Schalter 

Software 

Software 

Software 

Schalter 

Eprorn-Typen: 

2716-27128 

X 

X 

X 

X 

X 

27256 

X 

— 

X 

X 

X 

2532/2564 

X 

— 

X 

X 

— 

2508/2708 

X 

— 

— 

— 

— 

2516/2716 

X 

X 

X 

— 

— 

2564 

2758/2815/2816/8016/  / 

X 

X 

X 

68764/68766/5133/5143/  t 
52B13/X2804A/X2816A  ■> 

X 

~ 

Sockel  Textool 

X 

X 

X 

X 

X 

Basic-Programm  brennen 

- 

- 

X 

- 

X 

Preis 

198  Mark 

159  Mark 

279  Mark 

ab  248  Mark 

198  Mark 

Bezugsquelle 

Roßmöller 

Dela  Elektro- 

Merlin  Data 

Stephan 

John  Hall. 

GmbH, 

nik,  Krefel- 

Vertrieb.  Rö- 

Thienel, 

Spaltinqstr.  1, 

Finkenweg  1, 

der  Str.  66, 

merfeld  12, 

Sandg.  22, 

2000  Ham- 

5309 

5000  Köln. 

8261  Tittmo- 

8602  Bürge- 

bürg  1.  Tel. 

Mecken¬ 
heim,  Tel. 
02225/14488 

TeL 

0221/725336 

ning,  Tel. 
09683/1671 

brach,  Tel. 
09546/1456 

040/234262 

Tabelle  der  fünf  Testkandidaten 


Hardware 


C  64 


Aus  eins  mach  vier 

Wir  stellten  schon  mehrere  geänderte  Betriebssysteme  für  den  C  64  vor. 
Das  beste  Beispiel  ist  das  Hypra-Perfekt.  Diese  Bauanleitung  setzt  der  ganzen 
Sache  die  Krone  auf:  Absturzfreies  Umschalten  zwischen  vier  Betriebssystemen. 


Die  Idee  zu  dieser  Schaltung  lie¬ 
ferte  eigentlich  das  Hypra- 
Load-Programm  in  der  Be¬ 
triebssystemversion,  welches  ein 
neues  EPROM  im  Kernalsteckplatz 
U  4  erfordert.  Mit  etwa  98  Prozent 
der  Programme  funktioniert  dies 
hervorragend.  Für  die  restlichen  2 
Prozent,  mit  denen  es  Schwierigkei¬ 
ten  gibt,  hilft  allerdings  nur,  das  Ori- 
ginalkernal  wieder  einzusetzen. 
Meistens  ist  das  der  Fall,  wenn 
Kassetten-Routinen  benötigt  wer¬ 
den.  Eine  Umgehung  des  ständigen 
Ein-  und  Ausbaus  bietet  sich  mit  ei¬ 
ner  Betriebssystemumschaltung  an. 
So  könnte  ein  Programm  mit  Hypra- 
Load  geladen  und  anschließend  auf 
das  Originalsystem  zurückgeschal¬ 
tet  werden.  Dadurch  wäre  eine 
lOOprozentige  Programmverträg¬ 
lichkeit  gewährleistet.  Allerdings 
nur,  wenn  beim  Umschalten,  der 
Computer  nicht  »abstürzt«. 

Aus  diesen  Gedanken  heraus 
wurde  diese  Schaltung  entwickelt. 
Sie  hat  die  oben  beschriebenen  Vor¬ 
teile  und  bietet  noch  die  Möglichkeit 
der  Umschaltung  zwischen  dem 
Original-Kernal  und  drei  zusätzli¬ 
chen  Betriebssystemen. 

Etwas  Theorie 

Wie  wird  dem  Computer  ein  Um¬ 
schalten  des  Betriebssystems  mitge- 
teilt?  Für  den  Computer  stellt  das 
Betriebssystem  eine  Ansammlung 
von  Befehlen,  Sprungadressen  und 
Routinen  in  einem  bestimmten 
Adreßbereich  dar,  Beim  C  64  ist  es 
der  Bereich  57344  bis  65535  ($E000 
bis  $FFFF).  Will  der  Computer  aus 
irgendeinem  Grund  auf  das  Be¬ 
triebssystem  zugreifen,  aktiviert  er 
den  Speicherbaustein  für  diesen 
Adreßbereich  und  legt  ihn  auf  den 
Adreß-  und  Datenbus.  Was  für  eine 
Art  Speicherbaustein  (ROM,  RAM 
oder  EPROM)  das  ist,  ist  ihm  völlig 
egal.  Hauptsache  er  findet  in  dem 
Adreßbereich  einen  Speicher  vor. 

Für  uns  ist  es  aber  nun  sehr  wich¬ 
tig  zu  wissen,  nach  welchem  System 
der  Computer  seine  Speicherbau¬ 
steine  verwaltet,  damit  ohne  Absturz 


ein  neues  Betriebssystem  aktiviert 
werden  kann.  Das  Zusammenspiel 
der  einzelnen  RAM/ROM-Baustei- 
ne  wird  von  einem  einzigen  IC  ge¬ 
steuert.  Dieses  IC  befindet  sich  im 
Steckplatz  U  17  und  ist  ein  sogenann¬ 
ter  PLA-Chip  (Programable-Logic- 
Array).  Dieses  IC  wird  bei  der  Ferti¬ 
gung  nach  Herstellerangaben  pro¬ 
grammiert  und  erhält  so  besondere 
Logikeigenschaften,  die  eine  Viel¬ 
zahl  von  herkömmlichen  Gatter¬ 
funktionen  nachbilden.  Dieser  PLA- 
Baustein  ist  im  C  64  dem  Prozessor 
untergeordnet  und  nimmt  diesem 
weitgehend  die  Verwaltung  der 
Speicherbausteine  im  gesamten 
Adressierungsbereich  ab.  Die  PLA, 
auch  Adreßraummanager  genannt, 
sorgt  dafür,  daß  auf  entsprechende 
Befehle  der  CPU  immer  der  richtige 
Baustein  angesprochen  wird  und 
daß  immer  nur  ein  RAM/ROM-Bau- 
stein  aktiv  auf  dem  Adreß-  oder  Da¬ 
tenbus  zugreift,  damit  keine  »Kurz¬ 
schlüsse«  entstehen.  Jeder  RAM/ 
ROM-Baustein  ist  über  eine  Leitung 
mit  dem  Manager  verbunden.  Sie 
heißt  Chipselect-  oder  Enablelei- 
tung,  Sie  aktiviert  die  einzelnen 
Speicher  über  ein  Low-Signal  und 
blendet  dadurch  den  entsprechen¬ 
den  Adreßbereich  ein.  Um  bei¬ 
spielsweise  das  Betriebssystem  zu 
aktivieren,  legt  der  Manager  die 


Kernalleitung  auf  Low-Pegel  (Pin  20 
am  Kernal-ROM)  und  hält  alle  ande¬ 
ren  Leitungen  auf  High-Pegel.  Damit 
ein  anderes  Betriebssystem  akti¬ 
viert  wird,  muß  man  nur  die  Kernal¬ 
leitung  zum  anderen  Betriebssy¬ 
stem  durchschalten  und  es  natürlich 
auch  mit  den  Adreß-  und  Datenlei¬ 
tungen  verbinden.  Will  man  drei 
neue  und  das  alte  System  benutzen, 
benötigt  man  eigentlich  nur  einen 
4fach  Umschalter,  der  die  Chipse- 
lect-Leitung  verteilt.  Allerdings  hat 
die  ganze  Sache  einen  Haken. 

Der  Computer  läuft  mit  einer  Takt¬ 
frequenz  von  1  MHz.  Entsprechend 
schnell  werden  die  einzelnen 
Speicher-ICs  auch  geschaltet.  Wür¬ 
de  man  mit  einem  einfachen  Um¬ 
schalter  ein  anderes  Betriebssy¬ 
stem  auswählen,  wäre  während  der 
Umschaltphase,  die  ja  immerhin 
selbst  bei  »Fingerakrobaten«  einige 
Millisekunden  dauert,  gar  kein  Be¬ 
triebssystem  verfügbar  und  der 
Computer  würde  ins  »Leere«  sprin¬ 
gen.  Um  das  zu  verhindern,  darf  ei¬ 
gentlich  nur  umgeschaltet  werden, 
wenn  auf  das  Betriebssystem  gera¬ 
de  nicht  zugegriffen  wird.  Hier  setzt 
diese  Schaltung  an.  Sie  speichert 
den  Umschaltimpuls  so  lange,  bis 
das  Kernal-ROM  nicht  mehr  aktiv  ist 
und  gibt  dann  das  andere  ange¬ 
wählte  Betriebssystem  frei. 
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Bild  4.  So  muß  der  Adaptersockel  an  die  Platinenrückseite  gelötet  Bild  5.  Die  fertige  Umschaltplatine.  Achten  Sie  auf  die  Draht¬ 
werden.  brücken 
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Bild  3.  Bestückungsplan.  Vergessen  Sie  bitte  nicht  die  Drahtbrücken  auf  der 
Bestückungsseite  einzulöten. 


Wie  funktioniert  die  absturzfreie 
Umschaltung? 

Zuerst  etwas  Grundsätzliches  zur 
Arbeitsweise  der  beiden  ICs.  Soll¬ 
ten  Sie  sich  für  die  Technik  nicht  in¬ 
teressieren,  können  Sie  dieses  Kapi¬ 
tel  auch  überschlagen. 

IC  1  beinhaltet  vier  D-Register  (bi¬ 
stabile  Gatter,  Flip-Flops)  mit  zwei 
Eingängen  E  und  D(Bild  1)  und  zwei 
Ausgängen  Q  und  Q.  Der  Eingang  E 
ist  ein  Enable,  das  heißt  ein 
Freigabe-Eingang.  Liegt  dieser  Ein¬ 
gang  auf  High-Pegel,  wird  das  an  D 
anliegende  Signal  sofort  zum  Aus¬ 
gang  Q  übertragen.  Q  führt  dage¬ 
gen  immer  das  entgegengesetzte  Si¬ 
gnal  zu  Q.  Deshalb  auch  der  Strich 
über  dem  Buchstaben.  Wird  an  E 
ein  Low-Signal  gelegt,  wird  das  in 
diesem  Augenblick  an  D  anliegen¬ 
de  Signal  gespeichert.  Das  heißt, 
daß  Signaländerungen  an  D  nicht 
wirksam  sind,  solange  E  auf  Low- 
Pegel  liegt.  Das  D-Register  ist  also 
nichts  anderes  als  ein  1-Bit-Speicher, 
den  man  freigeben  oder  sperren 
kann.  DR  1-3  sind  völlig  identisch. 

Die  technische  Bezeichnung  für 
IC  2  lautet:  3-Bit-Binärdecoder/De- 
multiplexer  (3-8)  mit  Adressen- 
Zwischenspeicher.  Das  hört  sich 
komplizierter  an  als  es  ist.  Die  drei 
Eingänge  AO  bis  A2  (Bild  1)  wirken 
so,  wie  die  D-Register  DR  1-3.  Der 
Eingang  LE  (Latch  Enable)  bestimmt 
die  Funktion  der  Adreßeingänge  AO 
bis  A2.  Liegt  LE  auf  High-Pegel,  wer¬ 
den  die  zuletzt  an  den  Eingängen  AO 
bis  A2  anliegenden  Pegel  gespei¬ 
chert.  Liegt  dagegen  ein  Low-Pegel 
an  LE,  werden  die  Signale  an  AO  bis 
A2  an  die  Ausgänge  weitergege¬ 
ben.  Nun  sind  bei  diesem  IC  die 
Ausgänge  der  Speicher  nicht  her¬ 
ausgeführt,  wie  bei  IC  1,  sondern 
führen  auf  einen  internen  1  aus 
8-Decoder.  Die  Ausgänge  QO  bis  Q 


7  sind  die  Ausgänge  dieses  Deco¬ 
ders,  der  wie  folgt  arbeitet:  Von  sei¬ 
nen  acht  Ausgängen  kann  immer 
nur  einer  Low-Pegel  führen.  Wel¬ 
cher,  das  bestimmt  die  als  3-Bit- 
Binärzahl  an  den  Eingängen  AO  bis 
A2.  Mit  3  Bit  lassen  sich  ja  bekannt¬ 
lich  die  Dezimalzahlen  von  0  bis  7 
darstellen.  Als  Beispiel:  an  AObis  A2 
liegt  die  Bitkombination  101  an.  Dezi¬ 
mal  ist  das  5,  somit  liegt  Q5  auf  Low- 
Pegel,  und  zwar  so  lange,  wie  diese 
Bitkombmation  anliegt.  Alle  ande¬ 
ren  Ausgänge  führen  High-Pegel. 

Weiterhin  hat  IC 2  zwei  Freigabe- 
Eingänge  El  und  E2,  die  vollkom¬ 
men  unabhängig  von  den  anderen 
Eingängen  arbeiten.  Mit  El  oder  E2 
können  alle  Ausgänge  Q0-Q7 
gleichzeitig  auf  High-Pegel  gelegt 
werden.  Dazu  muß  an  El  ein  High¬ 
oder  an  E2  ein  Low-Signal  anliegen. 


Anschaulicher  wird  es  an  einem 
Beispiel:  Wir  wollen  mit  Hilfe  eines 
3-Bit-Wortes  irgendein  Signal,  sagen 
wir  ein  Rechtecksignal,  nacheinan¬ 
der  an  vier  verschiedene  Stellen  lei¬ 
ten.  Dazu  legen  wir  das  3-Bit-Wort  an 
die  Adreßeingänge  AO  bis  A2  an.  El 
wird  auf  Masse  gelegt,  da  nur  ein 
Freigabeeingang  benötigt  wird. 
Wie  bringen  wir  aber  nun  zum  Bei¬ 
spiel  Ausgang  Q5  dazu,  unser  Recht¬ 
ecksignal  zu  übertragen?  Zuerst 
wird  an  AO  bis  A2  die  Bitkombina¬ 
tion  101  angelegt,  mit  der  wir  Aus¬ 
gang  Q5  bestimmen.  Dann  wird  das 
Rechtecksignal  gleichzeitig  an  LE 
und  an  E2  gelegt.  Liegt  das  Recht¬ 
ecksignal  gerade  auf  High-Pegel, 
sind  alle  Ausgänge,  somit  auch  Q5, 
auf  High-Pegel.  Geht  das  Rechteck- 
signal  auf  Low-Pegel,  gibt  E2  die 
Ausgänge  frei,  und  das  Low-Signal 
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an  LE  überträgt  sich  auf  den  adres¬ 
sierten  Ausgang;  hier  Q5.  Geht  das 
Rechtecksignal  wieder  auf  High- 
Pegel,  beginnt  alles  von  vorn.  Das  ist 
genau  das,  was  wir  wollen.  Wird  an 
AO  bis  A2  jetzt  ein  anderer  Ausgang 
adressiert,  wird  das  Eingangssignal 
auf  den  anderen  übertragen. 

Nachdem  nun  die  Funktion  der 
einzelnen  ICs  etwas  verdeutlicht 
wurde,  zur  eigentlichen  Umschal¬ 
tung.  Die  Auswahl  des  Betriebssy¬ 
stems  erfolgt  über  die  Schalter  S1  (a 
und  b).  Die  Auswahlsignale  gelan¬ 
gen  nicht  direkt  auf  die  Adreßein- 
gänge,  sondern  erst  über  die  D- 
Register  DR1  und  DR2.  Die  beiden 
Register  haben  die  Aufgabe,  den 
Pegelwechsel  vom  Schalter  »schön 
rechteckig«  zu  machen. 

Hinweise  zum  Aufbau 

Das  Layout  für  die  Umschaltplati¬ 
ne  zeigt  Bild  2,  die  Stückliste  Tabelle 
1.  Beachten  Sie  beim  Ätzen,  daß  eini¬ 
ge  Leiterzüge  sehr  schmal  sind  und 
nicht  verschwinden. 

Nach  erfolgreicher  Herstellung 
der  Leiterplatte  wird  diese  gebohrt. 
Die  angedeuteten  Löcher  zum  An¬ 
schluß  der  Steckverbinder  dürfen 
nicht  durchbrochen  werden,  da  die 
Steckverbinder  als  Adaptersockel 
später  direkt  von  hinten  auf  die  Plati¬ 
ne  gelötet  werden.  Zuerst  sollten  die 
Drahtbrücken  eingesetzt  werden 
und  dann  die  Widerstände  und  IC- 
Sockel.  Zur  Befestigung  der  Adap¬ 
tersockel  lötet  man  diese  erst  an  den 
zwei  Endpunkten  an  und  richtet  sie 
rechtwinklig  aus.  Danach  sollte  man 
ausprobieren,  ob  die  ganze  Sache 
auch  paßt.  Erst  dann  sollten  die 
Steckverbinder  endgültig  mit  der 
Platine  verlötet  werden.  Den  4fach- 
Umschalter  schließt  man  am  gün¬ 
stigsten  mit  Flachbandleitung  an. 
Um  Leiterzüge  auf  der  Platine  zu 
sparen,  wird  die  eigentliche  Ver¬ 
drahtung  des  Schalters  erst  an  den 


Anschlußpins  des  Schalters  selbst 
durchgeführt.  Der  Schalter  wird  laut 
Schaltplan  »binär«  verdrahtet:  die 
Schalterausgänge  müssen  beim 
Weiterschalten  die  Binärzahlen 
00-01-10-11  liefern.  Das  ist  einfach 
möglich,  indem  man  die  entspre¬ 
chenden  Schaltereingänge  mit  R4  (5 
Volt)  verbindet  oder  offen  läßt. 
Durch  das  Offenlassen  entsteht 
über  R2  oder  R3  Low-Pegel. 

Die  Leuchtdioden  sollen  eigent¬ 
lich  nur  dem  Spieltrieb  von  Compu¬ 
terfreaks  entgegenkommen.  Die 
LEDs  werden  über  die  noch  freien 
vier  Kontakte  des  Umschalters  ge¬ 
schaltet.  Die  Versorgungsleitung  für 
die  Leuchtdioden  kommt  über  RI 
von  der  Platine.  Wollen  Sie  die  LEDs 
nicht  einbauen,  kann  der  470-Ohm- 
Widerstand  selbstverständlich  er¬ 
satzlos  entfallen.  Es  ist  dann  auch 
nur  noch  ein  2x4-Umschalter  not¬ 
wendig. 

Ist  die  Platine  nun  so  weit  be¬ 
stückt,  können  die  Betriebssysteme 
eingesetzt  werden.  Dazu  kommt  das 
Kernal-ROM  aus  Steckplatz  U4  in 
die  24polige  Fassung.  Wenn  Sie  eine 
C  64-Version  mit  fest  eingelötetem 
ROM  haben,  sollten  Sie  sich  von  ei¬ 
nem  Lötkolben-Profi  eine  Fassung 
einbauen  lassen.  In  die  Fassungen  1 
bis  3  auf  der  Platine  w  -  den  die 
Betriebssystems-EPROMs  gesteckt. 
Achten  Sie  unbedingt  darauf,  die 
EPROMs  und  das  ROM  richtig  her¬ 
um  in  die  Fassungen  zu  stecken  (Be¬ 
stückungsplan,  Bild  3).  Möglich  sind 
nur  2764-  oder  27064-Typen,  die  oh¬ 
ne  Schwierigkeiten  zu  beschaffen 
sind.  Die  C-Typen  sind  CMOS- 
Ausführungen  und  bieten  den  Vor¬ 
teil  der  geringen  Stromaufnahme. 
Hat  man  nur  ein  neues  Betriebssy¬ 
stem,  muß  dieses  unbedingt  in  Fas¬ 
sung  1  eingesteckt  werden,  das 
nächste  in  Fassung  2  und  das  dritte 
in  Fassung  3.  Sollte  eine  Fassung  frei 


bleiben,  darf  diese  natürlich  nicht 
über  den  Schalter  angewählt  wer¬ 
den.  Ein  Absturz  des  Computers 
bliebe  mit  Sicherheit  nicht  aus. 

Ist  alles  soweit  fertig  (vorher  noch¬ 
mal  auf  Lötbrücken  untersuchen!), 
kann  die  Platine  in  den  Steckplatz 
U4  eingesetzt  werden.  Die  EPROMs 
müssen  nach  dem  Einsetzen  links 
von  U4  stehen  und  alle  Markie¬ 
rungskerben  der  ICs  auf  die  C 
64-Rückseite  zeigen.  Der  Wahl¬ 
schalter  kommt  zunächst  in  Stellung 
1.  Nach  dem  Einschalten  des  Com¬ 
puters  sollte  dieser  sich  normal  mel¬ 
den.  Dann  kann  umgeschaltet  wer¬ 
den.  Schaltet  man  auf  Hypra-Per- 
fekt,  dürfte  auf  dem  Bildschirm  kei¬ 
ne  Veränderung  feststellbar  sein. 
Aber  an  der  geänderten  Funktions¬ 
tastenbelegung  wird  es  schnell  klar, 
daß  man  ein  anderes  Betriebssy¬ 
stem  aktiviert  hat.  Noch  ein  Wort  zur 
Umschaltung:  Der  Computer  wird 
natürlich  nur  dann  nicht  »abstürzen«, 
wenn  innerhalb  der  Betriebssyste¬ 
me  zur  Umschaltzeit  die  gleichen 
Routinen  benutzt  werden.  Konkret: 
Benutzt  man  ein  System  mit  Hypra- 
Load,  darf  natürlich  während  des 
Ladens  nicht  auf  das  normale  Kernal 
umgeschaltet  werden,  weil  die  La¬ 
deroutine  mit  der  originalen  nicht 
identisch  ist.  Bei  anderen  Betriebs¬ 
systemen  muß  man  das  von  Fall  zu 
Fall  ausprobieren.  Am  sichersten  ist 
ein  Umschalten  immer  im  Direktmo¬ 
dus.  Kaputtgehen  kann  während 
des  Umschaltens  nichts.  Spätestens 
nach  einem  Reset  ist  der  Rechner 
wieder  einsatzbereit. 

(Andreas  Gerzen/hm) 


IC  1 

74  LS  75 

IC  2 

74  LS  137 

D1,D2,D3,D4 

LED  3  mm 

RI 

470  ß 

R2,R3 

4,7  kQ 

R4 

330  Q 

S1 

Umschalter  3x4 
trennend 

IC-Fassungen 

16polig 

2  Stück 

24polig 

1  Stück 

28polig 

3  Stück 

Schaltdraht  für  Brücken 
5fach-Flachbandleitung,  etwa  20  cm 

Adaptersockel 

Da  sie  schwer  zu  beschaffen  sind,  hier 
einige  Bezugsquellen: 

Typ  AP  119/G  20polig  (deshalb  2  Stück) 
Firma  Ratev,  Lochnerstr.  1,  4030  Ratingen 

oder 

Typ  K5  50polig  (deshalb  nur  1  Stück) 

Best.Nr.:  58  F  800 

Firma  Bürklin,  Kölner  Str.  42,  4000  Düs- 

seldorf 

Tabelle  1.  Stückliste  zur  Umschaltplatine 

Bild  2.  Das  1  :  1-Platinenlayout  der  Umschaltplatine. 
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Auf  zu  neuen  Welfen 

Der  parallele  lEEE-Bus  ist  eine  der  wichtigsten  Verbindungen  der  »großen« 
Commodore-Computer  zur  Außenwelt.  Mit  unserem  Selbstbau-Interface 
eröffnen  Sie  Ihrem  C  64  die  gesamte  Palette  der  (ommodore-Peripherie. 


Ohne  Zweifel,  es  lohnt  sich!  Spei¬ 
cherkapazitäten  von  mehreren 
MByte,  beschleunigte  Lade- 
und  Speichervorgänge  sowie  eine 
rasante  Dateiverarbeitung  machen 
die  »großen«  Peripheriegeräte,  wie 
das  Diskettenlaufwerk  CBM  4040, 
interessant.  Das  einzige  Problem  ist 
die  im  C  64  eingebaute  Schnittstelle. 
Der  serielle  IEEE-488-Bus  (auch  als 
IEC-Bus  bezeichnet)  ist  nicht  zum 
Anschluß  dieser  Geräte  geeignet. 
Aber  der  C  64  wäre  nicht  der  C  64, 
der  seinen  weltweiten  Siegeszug  an¬ 
getreten  hat,  wenn  man  dieses  Hin¬ 
dernis  nicht  überwinden  könnte.  Un¬ 
ser  Selbstbau-Interface  verwandelt 
den  Expansion-Port  in  eine  IEEE- 
488-Schmttstelle,  wie  sie  von  den 
CBM-Computern  her  bekannt  ist. 

Dabei  sind  im  wesentlichen  zwei 
Hindernisse  zu  überwinden.  Einer¬ 
seits  müssen  die  Daten  des  C  64  zwi¬ 
schengespeichert  und  aufbereitet 
werden,  Andererseits  muß  dem  C 
64  mitgeteilt  werden,  daß  er  seine 
Daten  nicht  mehr  wie  gewohnt  se¬ 
riell,  sondern  parallel  ausgibt.  Die 
Hauptaufgabe  der  Bedienung  des 
IEEE-Busses  übernimmt  dabei  ein 
6821-Schnittstellenbaustein.  Mehre¬ 
re  Gründe  sprechen  für  diesen 
Ein-/Ausgabebaustein.  Da  ist  zum  ei¬ 
nen  der  ausgesprochen  günstige 
Preis.  Er  ist  in  nahezu  jedem  Elektro¬ 
nikversand  unter  10  Mark  zu  haben. 
Ein  6526,  wie  er  im  C  64  sogar  gleich 
zweimal  vorhanden  ist,  kostet  dage¬ 
gen  zirka  45  Mark.  Zum  anderen  ist 
der  6821,  im  Gegensatz  zum  eben¬ 
falls  möglichen  6522,  ohne  Proble¬ 


me  an  den  C  64  anschließbar.  Der 
6522  verträgt  das  Timing  des  C  64 
nicht  und  benötigt  deshalb  noch  ei¬ 
ne  Zusatzschaltung,  die  das  Taktsi¬ 
gnal  des  C  64  etwas  verzögert.  Der 
6821  läßt  sich  übrigens  durch  die 
stromsparende  CMOS-Variante  6321 
problemlos  ersetzen. 

Die  Daten  werden  vom  C  64  aller¬ 
dings  nicht  direkt  auf  den  lEEE- 
Bus,  sondern  über  einen  Bustreiber 
74LS245  geführt.  Dies  ist  nötig,  um 
den  6821  (6321)  vor  Beschädigung  zu 
schützen  und  zugleich  den  sicheren 
Betrieb  von  mehreren  Geräten  am 
Bus  zu  gewährleisten.  Die  Steuersi¬ 
gnale  werden  dabei  über  den  In¬ 
verter-Baustein  4069  geführt. 

Die  Realisierung 

Der  verwendete  Pf/  Parallel  In¬ 
terface  Adapter)-Baustein  6821  ent¬ 
hält  zwei  Ports.  Jeder  Port  verfügt 
über  drei  Register:  das  Datenein¬ 
gabe-  und  Datenausgaberegister, 
das  Datenrichtungsregister  und  das 
ControL/Statusregister.  Diese  Regi¬ 
ster  wurden  auf  einige  bisher  unbe¬ 
nutzte  Register  des  C  64  gelegt.  Im 
einzelnen  befinden  sich  diese  in  fol¬ 
genden  Speicherzellen: 

$DE00  Datenregister  A/Daten¬ 
richtungsregister  A 
$DE01  Controllregister  A 
$DE02  Datenregister  B/Daten- 
richtungsregister  B 
$DE03  Controllregister  B 

Die  Unterscheidung  zwischen 
dem  Datenrichtungs-  und  Ein-/Aus- 
gaberegister  erfolgt  über  das  Bit  2 


des  Controllregisters.  Ist  es  gelöscht 
(0),  dann  ist  das  Datenrichtungsregi¬ 
ster  selektiert.  Im  Datenrichtungsre¬ 
gister  ist  jeder  Ein-/Ausgabeleitung 
ein  Bit  zugeordnet.  Der  Zustand  die¬ 
ses  Bits  legt  fest,  ob  die  betreffende 
Leitung  Eingang  oder  Ausgang  ist. 
Ist  das  Bit  gesetzt,  so  ist  die  zugeord¬ 
nete  Leitung  Ausgang,  ist  das  Bit  ge¬ 
löscht,  so  wird  die  Leitung  als  Ein¬ 
ganggeschaltet.  Beim  IEEE-488-Mo- 
dul  sind  diese  Leitungen  wie  in  Bild 
1  abgebildet,  geschaltet. 

Natürlich  kann  man  das  IEEE-Mo- 
dul  auch  als  eine  Art  Userport-Er¬ 
weiterung  benutzen.  In  der  Regel 
wird  man  aber  Geräte  wie  Disket- 


TRW- 

Stecker 

Signal 

Ämphenol- 

Stecker 

Pin  1 

DIO  0 

Pin  1 

Pin  2 

DIO  1 

Pin  2 

Pin  3 

DIO  2 

Pin  3 

Pin  4 

DIO  3 

Pin  4 

Pin  5 

EOI 

Pin  5 

Pin  6 

DAV 

Pin  6 

Pin  7 

NRFD 

Pin  7 

Pin  8 

NDAC 

Pin  8 

Pin  9 

IFC 

Pin  9 

Pin  10 

- 

Pin  10 

Pin  11 

ATN 

Pin  11 

Pin  12 

GND 

Pin  12 

Pin  A 

DIO  4 

Pin  13 

Pin  B 

DIO  5 

Pin  14 

Pin  C 

DIO  6 

Pin  15 

PinD 

DIO  7 

Pin  16 

Pin  E  bis  N 

GND 

Pin  17  bis  24 

Bild  2.  Verdrahtungsschema 
für  ein  Peripheriekabel 

PA0  bis  PA7  Ein-/Ausgang  DO  bis  D7 
CA2  steuert  Datenrichtung  des  74LS245 

PB0  EOI  (End  Or  Identify)  Ausgang 

PB1  EOI  (End  Or  Identify)  Eingang 

PB2  DÄV  (Data  Valid)  Eingang 

PB3  DÄV  (Data  Valid)  Ausgang 

PB4  NRFD  (Not  Ready  For  Data)  Eingang 

PB5  NRFD  (Not  Ready  For  Data)  Ausgang 

PB6  NDAC  (No  Data  Accepted)  Eingang 

PB7  NDAC  (No  Data  Accepted)  Ausgang 

CB2  ATN  (Attention)  Ausgang 

Bild  1.  Beschaltungsplan  des  IEEE-488-lnterfaces 


Achtung!  Erst  mit  CTRL  und  +  einschalten 
@  =  Auslesen  des  Fehlerkanals 

@$  =  Directory  ohne  Programmverl. 

@N,I,R,S,0  =  New,  Initialize,  Rename, Scratch,  Copy 

/Name  =  Laden  von  Programmen 

I  Name  =  Laden  und  starten 

—  Name  =  Speichern  von  Programmen 

Auch  Joker  und  Fragezeichen  im  Namen  sind  erlaubt. 


Bild  3.  Auch  die  DOS-5.1  -Befehle  kennt  das  lEEE-lnterface 
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tenlaufwerke  (4040,  8050,  8250,  2031, 
SFD  1001)  oder  aber  Drucker  und 
Meßgeräte  anschließen.  Dazu  be¬ 
nötigt  man  noch  ein  spezielles  An¬ 
schlußkabel,  das  auf  der  Computer¬ 
seite  mit  einem  TRW  251-12-50-170 
und  auf  der  Peripherieseite  mit  ei¬ 
nem  24poligen  Amphenol-Stecker 
verbunden  ist.  Die  Anschlußbele¬ 
gung  ist  im  Verdrahtungsschema 
(Bild  2)  abgebildet. 

Die  Software 

Wie  bei  fast  allen  Erweiterungen 
des  Betriebssystems  trat  auch  beim 
IEEE-488-Interface  das  Problem  des 
Speicherbereichs  auf.  Die  Lösung 
sollte  sich  mit  fertiger  Software  be¬ 
stens  vertragen  und  trotzdem  sofort 
nach  dem  Einschalten  zur  Verfü¬ 
gung  stehen.  Anstelle  der  Kasset¬ 
tenroutinen  wurde  die  Treibersoft¬ 
ware  für  das  Interface  einprogram¬ 
miert.  Da  dort  aber  noch  Platz  war, 
haben  wir  das  von  der  Test/Demo- 
Diskette  bekannte  DOS  5.1  imple¬ 
mentiert.  Die  zusätzlichen  Befehle 
dieser  DOS-Erweiterung  sind  in  Bild 
3  zusammengefaßt.  Um  aber  Pro¬ 
bleme  mit  fertiger  Software  auszu¬ 
schließen,  muß  das  DOS  5.1  mit  den 
Tasten  CTRL  und  +  eingeschaltet 
werden. 

Der  wesentlichste  Grund,  warum 
sich  Diskettenlaufwerke  wie  die 
sehr  gute  SFD  1001  bisher  nicht 
durchsetzen  konnten,  ist  einerseits 
der  Preis  und  andererseits  das  vom 
1541-Floppy-Laufwerk  unterschied¬ 
liche  Aufzeichnungsformat.  Kaum 
ein  Anbieter  professioneller  Softwa¬ 
re  konnte  sich  bisher  dazu  entschlie¬ 
ßen,  seine  Programme  auch  in  die¬ 
sem  Format  anzubieten.  Durch  ei¬ 
nen  kleinen  Trick  ist  es  möglich,  mit 
unserem  Interface  Programme  vom 
1541  auf  das  8250-Format  (das  SFD- 
1001-Laufwerk  ist  praktisch  ein  hal¬ 
biertes  8250-Laufwerk)  zu  überspie¬ 
len.  Die  Speicherzelle  2  des  C  64 
wurde  zum  Steuerregister  umfunk¬ 
tioniert.  Im  Normalfall  steht  dort  eine 
4.  Das  bedeutet,  daß  der  Drucker 
auch  mit  dem  IEEE-488-Interface 
weiterhin  seriell  betrieben  werden 
kann.  Und  nun  der  Trick:  Schreibt 
man  in  Speicherzelle  2  eine  8,  so 
wird  nicht  das  parallele  Disketten¬ 
laufwerk,  sondern  die  1541  ange¬ 
sprochen.  Stellt  man  die  Geräte¬ 
adresse  des  parallelen  Laufwerks 
auf  9,  so  kann  man  mit  jedem  Kopier¬ 
programm  für  zwei  Laufwerke  vom 
Laufwerk  8  (1541)  auf  Laufwerk  9 
(zum  Beispiel  SFD  1001)  Programme 
übertragen.  Die  normale  Geräte¬ 
adresse  (ohne  Umstellung)  des  pa¬ 
rallelen  Laufwerks  ist  aber  weiter- 


Bild  4.  Layout  Platinenoberseite  Bild  5.  Layout  Platinenunterseite 

des  lEEE-lnterface  des  lEEE-lnterface 


Bild  6. 

Fertig  uufgebautes 
IEEE-488-lnterface 


hm  die  8.  Natürlich  können  Sie  auf 
diese  Weise  auch  jede  andere  er¬ 
laubte  Geräteadresse  seriell  an¬ 
sprechen,  Sie  brauchen  dazu  nur 
die  Geräteadresse  in  Speicherzelle 
2  zu  schreiben  (Beispiel:  POKE  2,8 
um  das  1541-Laufwerk  anzuspre¬ 
chen). 

Das  Listing 

Die  Software  (Listing  1)  wird  im 
Overlay-Verfahren  auf  das  Original- 
Kernal  kopiert.  Dazu  wird  vom  Pro¬ 
gramm  zunächst  das  Betriebssy¬ 
stem  in  den  Bereich  ab  $6000  ver¬ 
schoben.  In  einer  POKE-Schleife 
werden  die  notwendigen  Verände¬ 
rungen  vorgenommen.  Nach  Been¬ 
digung  des  Programmablaufs  befin¬ 
det  sich  im  Speicherbereich  des  C 
64  ab  $6000  bis  $8000  das  komplett 
neue  Kernal.  Sie  können  es  nun  ent¬ 
weder  direkt  mit  einem  Monitor  ab¬ 
speichern  (was  zu  empfehlen  ist) 
oder  aber  gleich  in  ein  2764-EPROM 


brennen.  Dieses  EPROM  wird  dann 
mit  einem  Adapter  anstelle  des 
Kernal-ROMs  in  den  U4-Steckplatz 
des  C  64  eingebaut.  Die  Herstellung 
eines  solchen  Adapters  haben  wir  in 
Ausgabe  4/85  ausführlich  beschrie¬ 
ben.  Es  werden  aber  auch  von  ver¬ 
schiedenen  Herstellern  ähnliche 
Adapter  angeboten. 

Wie  erhalte  ich  meine  Platine? 

Das  Platinen-Layout  und  das  ferti- 


1  IC  4069  Inverter 

1  IC  74LS245  Bustreiber 

1  IC  6821  Ein-/Ausgabebaustein 

ersatzweise: 

1  IC  6321 

1  Sockel  20polig,  gedreht 

1  Sockel  14polig,  gedreht 

1  Sockel  40polig,  gedreht 

1  Kondensator  10  (iF 

Bild  7.  Diese  Bauteile  benötigt 
man  für  das  lEEE-lnterface 
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ge  IEEE-Interface  (Arbeitsversion) 
im  Maßstab  1 :  1  finden  Sie  in  Bild  4, 

5  und  6.  Das  44polige  Ende  der  Plati¬ 
ne  ist  zum  Einstecken  in  den  Expan¬ 
sion-Port  vorgesehen.  An  der  24poli- 
gen  Seite  werden  die  Peripheriege¬ 
räte  angeschlossen.  Die  Bestük- 
kungsseite  der  Platine  erkennen  Sie 
an  den  zwei  Lötpunkten  für  einen 
Kondensator.  Er  muß  sich  in  diesem 
Fall  rechts  oben  auf  der  Expansion- 
Port-Seite  befinden.  Zur  Bestückung 
legen  Sie  die  Platine  so  vor  sich  hin, 
daß  diese  beiden  Lötpunkte  rechts 
oben  sind,  und  die  Expansion-Port- 
Seite  von  Ihnen  weg  zeigt.  Setzen  Sie 
nun  in  die  linken  vorderen  Lötpunk- 

te  einen  20poligen  Sockel  und  in  die  die  unten  angegebene  Adresse 
rechten  Lötpunkte  einen  14poligen  wenden,  dort  hilft  man  Ihnen  weiter. 
Sockel.  Die  Sockelkerben  zeigen  Unter  dieser  Adresse  ist  die  Leer- 
dabei  immer  nach  links.  Den  6821  platine  (35  Mark),  der  Bausatz  inklu- 
(6321)  sockeln  Sie  analog  dazu.  Löten  sive  EPROM  (75  Mark)  und  das  Fer- 
Sie  nun  den  Kondensator  (10  n  F)  so  tiggerät  inklusive  EPROM  (98  Mark) 
ein,  daß  +  5  V  des  Kondensators  mit  zu  haben. 

Pin  2  und  3  auf  der  C  64-Steckleiste  _  _  Noch  ein  paar  Tips  zum  Abschluß: 
verbunden  sind.  Der  äußere  Pin  Überprüfen  Sie  alle  Kontakte  auf 
liegt  an  Masse.  Nach  dem  Einlöten  Durchgang.  Stecken  Sie  das  Modul 
der  Sockel  brauchen  Sie  nur  noch  nur  in  den  ausgeschalteten  Compu- 
die  Bausteine  (Kerbe  auf  Kerbe)  ein-  ter  und  vergessen  Sie  den  Adapter 
setzen.  Das  Interface  ist  nun  fertig,  für  das  Kernal-EPROM  nicht. 

In  Bild  7  finden  Sie  nochmals  eine 

komplette  Stückliste.  Falls  es  Ihnen  (Ernst  Schöberl/Arnd  Wängler/ah) 
nicht  möglich  sein  sollte,  die  Platine  Wo:  ^  u  HoSm„nn  Wotaoai  9  sooo  Manche», » 
selber  zu  ätzen,  können  Sie  sich  an  089/1 782546 

10  POKE  56 , 96: POKE  55,0: CLR 

<020  > 

1150  REM  ***************** 

<  2 1 9  > 

15  0F=3276S 

<096> 

1 155  REM  ****  BLOCK  6  **** 

<007> 

20  F’R INT“  -CCLR ,  3DDWN >KOF I EREN  DER  ROM-DATEN 

1160  REM  ***************** 

<229> 

NACH  $6000" : PRINT 

<077> 

1170  DATA  60859,91,11666 

<  235  > 

30  FOR  1=6*4096  TO  8*4096-1 : POKE  I,PEEK(I+ 

1171  DATA  76,67,251,76,28,251,41,247,141,3 

OF) : NEXT  I 

<108> 

,221 ,96,133,149,76,39,251 , 120,32 

<  1 25  > 

40  REM  EINSCHALTFARBEN  SETZEN 

<217  > 

1172  DATA  160,238,32,190,237,32,133,238,32 

50  POKE  58677— OF ,5:  REM  ZEICHEN 

GRUEN  <  203  > 

, 169,238,48,251 ,88,96,36,148,48,5 

<  199  > 

60  POKE  60633— OF , 0:  REM  RAHMEN  SCHWARZ  <023> 

1173  DATA  56,102,148,208,5,72,32,239,250,1 

70  POKE  60634— OF , 0:  REM  HINTERGR.  SCHWARZ  <248> 

04,133,149,24,96,234,76,250,250,173 

<01 5> 

80  PR I NT " LESEN  DER  DATA— ZEILEN" 

PRINT : PRIN 

1174  DATA  0,221,9,8,141,0,221,169,95,44,16 

T 

<051  > 

9,63,76,6,251,32, 190,237,138,162 

<  124> 

100  T=0 

<  154  > 

1175  DATA  10,202,208,253,170,32,133,238,76 

110  T=T+1 : READ  A: IF  A=0  THEN  240  <202> 

, 151,238,76,81,251 

<  1 95  > 

120  READ  B:  REM  ANZAHL  DER  BYTES  <042>1: 

1 1C2  REM  ***************** 

<249> 

130  READ  PI:  REM  F'RUEFSUMME 

<  092  > 

1185  REM  ****  BLOCK  7  **** 

<038  > 

140  P2=0:  PR  INT  "BLOCK  "  ;  T;  "  -C2SPACE}  “  ;  <187> 

1190  REM  ***************** 

<003  > 

150  FOR  I=A— OF  TO  A-OF-l+B 

<  1 28  > 

1200  DATA  62637,11,1586 

<205> 

160  READ  D: POKE  I,D:P2=P2+D 

<21 1> 

1201  DATA  201,4,176,7,169,8,133,186,234,23 

170  NEXT  I 

<  1 17> 

4,234 

<101> 

180  IF  P20P1  THEN  210 

<224> 

1210  REM  ***************** 

<023> 

190  PRINT" C3SPACEJOK" 

<053> 

1225  REM  ****  BLOCK  8  **** 

<079  > 

200  GOTO  110 

< 227  > 

1230  REM  ***************** 

<043> 

210  PR INT" PRUEFSUMME  FALSCH:  ";P2; "  STATT 

1240  DATA  62959,11,1586 

<252> 

" ; PI : PRINT 

<  254  > 

1241  DATA  201,4,176,7,169,8,133,186,234,23 

220  GET  Af:IF  A*=""THEN  220 

<061  > 

4,234 

<  1 4 1  > 

230  GOTD  110 

<001> 

1250  REM  ***************** 

<  063  > 

240  PRINT: PRINT"FERTIG! END 

<060> 

1255  REM  ****  BLOCK  9  **** 

<110> 

1000  REM  ***************** 

<  068  > 

1260  REM  ***************** 

<073> 

1005  REM  ****  BLOCK  1  **** 

<  107> 

1270  DATA  62999,3,296 

<  1 88  > 

1010  REM  ***************** 

<078> 

1272  DATA  32,12,252 

<056> 

1020  DATA  57817,2,170 

<  1 7  6  > 

1280  REM  ****************** 

<  136> 

1025  DATA  162,8 

<  133  > 

1285  REM  ****  BLOCK  10  **** 

<  181  > 

1030  REM  ***************** 

<  099  > 

1290  REM  ****************** 

<146  > 

1035  REM  ****  BLOCK  2  **** 

<  1 39  > 

1300  DATA  64064,192,22379 

<  1 55  > 

1040  REM  ***************** 

<  109> 

1301  DATA  32,21,252,48,6,32,164,240,76,17, 

1050  DATA  57895,2,170 

<  2 13  > 

237,72,36,148,16,10,56,102, 163,32 

<031  > 

1055  DATA  162,8 

<  1 63  > 

1302  DATA  110,250,70,148,70,163,104,133,14 

1060  REM  ***************** 

<  129> 

9, 169,86,141,2,222, 169,4,44,2,222 

<030> 

1065  REM  ****  BLOCK  3  **** 

<  170> 

1303  DATA  240,251,169,60,141,3,222,169,86, 

1070  REM  ***************** 

<  139> 

36,163,16,2, 169,87,141,2,222,173 

<  252  > 

1080  DATA  58858,3,529 

<  252  > 

1304  DATA  2,222,41,80,201,80,240,86,169,48 

1081  DATA  76,202,251 

<  177  y 

,141,1 ,222, 169,255,141 ,0,222,169 

<237> 

1090  REM  ***************** 

<  1 59  > 

1305  DATA  52,141,1,222,165,149,73,255,141, 

1095  REM  ****  BLOCK  4  **** 

<201  > 

0 , 222 ,169,16,44,2, 222 , 240 , 249 , 1 69 

<037> 

1100  REM  ***************** 

<  1 69  > 

1306  DATA  8,13,2,222,141,2,222,169,255,141 

1110  DATA  60686,3,390 

<01 4> 

,7,221,169,25,141,15,221,169,0,141 

<  068  > 

1111  DATA  76,64,250 

<  164> 

1307  DATA  7,221,173,7,221,240,17,44,2,222, 

1120  REM  ***************** 

<  1 89  > 

80,246,169,86,141 ,2,222, 169,255,141 

<  1 38> 

1125  REM  *+**  BLOCK  5  **** 

<  232  > 

1308  DATA  0,222,24,96,44,133,2,16,10,32,22 

1130  REM  ***************** 

<199> 

5,255,208,209,240,3,169, 128,44,169 

<  087  > 

1140  DATA  60576,1,130 

<032> 

1309  DATA  3,32,28,254,98,24,144,220,133,14 

1141  DATA  130 

<  1 44  > 

9,32,110,250,169,52,141 ,3,222,96 

<  245  > 

Listing  1.  Treibersoftware  für  das  IEEE-488-lnterface.  Beachten  Sie  bitte  die  Eingabehinweise  auf  Seite  77. 
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1310 

1320 

1325 

1330 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 
1360 
1365 
1370 

1380 

1381 

1382 


1383 

1390 

1395 

1400 

1410 

1411 
1420 
1425 
1430 

1440 

1441 
1450 
1460 
1470 
1480 
1490 
1500 
1520 
1525 
1530 

1540 

1541 

1542 


1543 

1544 

1545 

1546 

1547 


DATA  32,21,252,48,3,76,64,237,76, 110, 

250,32,21,252,48,18,120 

REM  ****************** 

REM  ****  BLOCK  11  **** 

REM  ****************** 

DATA  64256,256,31864 

DATA  32,142, 238 , 76 , 243 ,237,32,21, 252 , 
48,9,32,17,237,76,3,238,169,95,44 
DATA  169,63,32,75, 250 , 76 , 233 , 250 ,32,2 
1,252,48,248,173,0,221 ,76, 193,237 
DATA  32,21,252,48,6,32,54,237,76,204, 
237,133, 149,32,110,250,169,246,141 
DATA  2,222,169,52,141 ,3,222,24,96,32, 
21 ,252,48,6,32,54,237,76,190,237 
DATA  76,228,250,32,21,252,48,6,120,16 
9,0,76,22,238,169,48,141,1,222,169 
DATA  0,141,0, 222 ,169,60,141,1, 222 , 1 69 
,214,141,2,222,169,255,141 ,7,221 
DATA  169,25, 141,15,221,169,0,141,7,22 
1,173,7,221,240,50,169,4,44,2, 222 
DATA  208,244,169,246,141,2,222,173,2, 
222 ,74,74,176,5,169,64,32,28, 254 
DATA  173,0,222,73,255,72,169,118, 141 , 

2.222.169.4.44.2.222.240.251 . 169 
DATA  246,141 ,2,222, 104,24,96,44,133,2 
, 16,5,32,237,246,208,176,169,2,32 
DATA  28,254, 169,13,72,208,228,201 , 131 
,208,3,76,238,229,201 , 130,208,6,32 
DATA  44 , 247 , 76 , 254 , 229 , 76 , 254 , 229 , 70 , 
148,162,56,142,1, 222 ,162,48,142,3 
DATA  222,169,169,141,2,222,169,255,14 
1 ,0,222,162,52,142, 1,222,162,52,142 
DATA  3,222,141,0 

REM  ****************** 

REM  ****  BLOCK  12  **** 

REM  ****************** 

DATA  64512,40,5057 

DATA  222,169,86,141 ,2,222, 173,0,222,7 
6,142,238,165,194,133,173, 165,193 
DATA  133,172,96,72, 165,186,41,15,197, 
2 , 208 ,5,104,44,29, 252 ,96,104,44,28 
DATA  252,96 

REM  ****************** 

REM  ****  BLOCK  13  **** 

REM  ****************** 

DATA  64999,9,1113 

DATA  169,4, 133,2, 169,64,76,243,253 
REM  ****************** 

REM  ****  BLOCK  14  **** 

REM  ****************** 

DATA  65405,3,549 
DATA  76,222,251 

REM  ******************************* 
REM  ******************************* 
REM  WENN  OHNE  DOS  5.1,  DANN  NUR 
REM  NOCH  ZEILE  10000  EINGEBEN! ! 

REM  ******************************* 
REM  ******************************* 
REM  ****************** 

REM  ****  BLOCK  15  **** 

REM  ****************** 

DATA  63276,212,27895 

DATA  76,105, 247 , 248 , 248 , 248 , 248 , 248 , 2 

49.247.247.247.249.248.169.169.169 
DATA  169,169,0, 207 , 207 , 207 , 6 , 243 , 37 , 4 
7,173,94,174,95,62,177,64,35,81,0 
DATA  13,68,79,83,32,86,53,46,49,32,65 
,75,84,73,86,73,69,82,84,13,0,76 
DATA  123,247,162,2, 189,102,247,149,12 
4,202,16,248, 169,8,141,145,3,76,211 
DATA  249,133,166,134,167,186,189,1 , 1 , 
201 , 230 , 240 , 4 , 201 ,140, 208 ,23,189 
DATA  2,1,201,167,240,4,201 ,164,208,12 
, 165, 166,162,8,221,69,247,240,17 
DATA  202,16,248,165,166,166,167,201,5 
8,176,3,76,128,0,76,138,0, 134,165 


<  056  > 

<  1 7  6  > 
'  222  > 

<  1 86  > 
<  1 98  > 


<102> 


<092  > 


<  1 28  > 
<031  > 
<  138> 

<004> 


<  063  > 


<050> 

<031  > 
<079> 

<  1 35  > 
<108> 

<170  > 

<  229  > 

<  2 1 6  > 
<007> 
<226> 

<  1 23  > 

<  130> 

<  186> 

<  035  > 

<  246  > 

<  038  > 
<000> 
<1 18> 
<178> 
<020  > 
<069  > 
<030> 
<089> 

<  028  > 
<084  > 
<094> 
<  1 1 2  > 

<  1 09  > 

<  124  > 

<  134  > 
<120> 

<  170> 

<  1 30  > 

<  1 45  > 


<  1 5 1  > 
<054> 

<  027  > 

<  131  > 

<  229  > 
<221  > 
<047> 


1548  DATA  141,148,3,32,43,249,166,165,169, 
62,133,187, 169,3,133,188, 173,145 

1549  DATA  3,133,186,189,47,247,72,189,58,2 
47,72,96,152,240,69,162,9,189,69 

1550  DATA  247,240,8,205,62,3,240,13,232,16 
,243,173,62,3,201,36,240,81,76,249 

1551  DATA  247,198,183,169,64,133,187,169,3 
, 133 , 188,76, 199,247, 165, 1B6, 32, 177 

1552  DATA  255,169,111 

1560  REM  ****************** 

1565  REM  ****  BLOCK  16  **** 

1570  REM  ****************** 

1580  DATA  63488,256,34255 

1581  DATA  133,185,32,147,255,160,0,185,62, 
3,32,168,255,200,196,183, 144,245 

1582  DATA  32,174,255,76,55,248,165,186,32, 

180.255. 169.111.133. 185.32.150.255 

1583  DATA  32,165,255,201,13,240,6,32,22,23 

1.76.36.248.32.22.231 .32.171 .255 

1584  DATA  76,121,0,169,96,133,185,32,213,2 
43, 165,186,32,180,255,165,185,32 

1585  DATA  150,255,169,0,133,144,160,3,132, 

183.32.165.255.133.195.32. 165.255 

1586  DATA  133,196,164,144,208,62,164,183,1 
36,203,235, 166, 195,165,196,32,205 

1587  DATA  189,169,32,32,22,231,32,165,255, 
166, 144,208,38,201,0,240,24,32,22 

1588  DATA  231,32,225,255,240,26,32,228,255 
,240 ,232,201 ,32, 20B, 228, 32, 228, 255 

1589  DATA  240,251,208,221,169,13,32,22,231 
, 160,2,76,81,248,32,66,246,169,13 

1590  DATA  32,22,231,76,121,0,166,43,164,44 
, 173,148,3,201 ,37,208,3,169,1 ,44 

1591  DATA  169,0,133,185,169,0,32,213,255,1 
76,46, 173,148,3,201,37,240,25,165 

1592  DATA  175,133,46,165,174,133,45,32,89, 
166 , 32 , 51 , 165 , 173, 148,3,201 , 173,240 

1593  4,201,47,208,3,76,134,227,169,0, 
32,144,255,32,142, 166,76,174,167 

1594  DATA  76,134,227,162,2,189,171,227,149 
, 124,202,16,248,76,134 

1600  REM  ****************** 

1605  REM  ****  BLOCK  17  **** 

1610  REM  ****************** 

1620  DATA  63744,256,30574 

1621  DATA  227,32,89,225,76,24,248,164,183, 
185,62,3,41,15,141,145,3, 136,242 

1622  DATA  20,185,62,3,41,15,168,240,12,173 
, 145,3,24,105,10,136,208,251,141 

1623  DATA  145,3,76,121,0,160,0,32,115,0,17 
3,208,3,76, 194,249,169,96,133,124 

1624  DATA  165,122,72,165,123,72,138,201,34 
,240,30,32,115,0,208,247,104,133 

1625  DATA  123,104,133,122,32,121,0,162,0,2 
01,34,240,14,162,2,228,123,208,92 

1626  DATA  162,0,240,9,104,104,162,0,32,115 
,0,240,86,201 ,34,240,82,201,61,240 

1627  DATA  4,201,58,208,2,162,255,201,91,24 
0,10,153,62,3,141,147,3,232,200,16 

1628  DATA  223,32,115,0,240,46,141,146,3,32 
,115,0, 240 ,38,201,93, 208 , 34 , 224 , 1 6 

1629  DATA  176,30,173,147,3,201,42,208,5,13 
6,202,169,63,44,169,32,224,15,176 

1630  DATA  7,153,62,3,200,232,16,245,173,14 
6,3,208,195, 162,76,134,124,76,8,175 

1631  DATA  132,183,162,76,134,124,32,121,0, 
240,5,32,115,0,208,251 ,96,162,0,189 

1632  DATA  81,247,240,6,32,22,231,232,208,2 
45,96,0,133,146,228,215,208,15,138 

1633  DATA  208,160,165,169,48,189,201,16,14 
4,185,133,150,176,181 , 138,69,155 

1634  DATA  133,155,165,180,240,210 
10000  DATA  0 

10010  REM  ******  ENDE  ****** 

©  64 ''er 


<010  > 


<046> 


<070  > 

<151  > 
<192> 
<  1 6 1  > 
<212> 
<171  > 
<  1 86  > 

<022 > 

<137> 

<252  > 

<034  > 


<068  > 


<097  > 
<058  > 


<  1  08  > 


<068> 


<008  > 


<077  > 
<  1 84  > 

< 035 > 


<063> 
<201  > 
<253 > 

<21 1> 
<221  > 

<063> 

<028  > 

<097> 

<032  > 

<058  > 

<  1 08  > 

<  1 22  > 

<  1 24  > 

<1 13> 

<  2 1 8  > 


<  1 9 1  > 


<  1 59  > 

<097  > 
<087  > 

<234  > 
<22B> 
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Neue  Spieletests  — 
so  wird  bewertet 

Die  64'er-Redaktion  hat  ein  neues 
Konzept  für  Spieletests  entwickelt. 
In  jeder  Ausgabe  werden  wir  etwa 
fünf  aktuelle  Spiele  testen.  Dabei 
vergeben  wir  in  fünf  Kategorien  je¬ 
weils  bis  zu  15  Punkte.  Die  Punktzah¬ 
len  finden  Sie  in  Balkendiagrammen 
am  Schluß  eines  Tests.  Da  nur  über 
dem  Durchschnitt  liegende  Spiele 
vorgestellt  werden  sollen,  fangen 
unsere  Skalen  erst  bei  fünf  Punkten 
an.  Zu  den  Kategorien  selber:  Mit 
Spielidee  bezeichnen  wir  die  Hand¬ 
lung  des  Spiels,  seinen  Spielwitz, 
seine  Hintergrundstory  und  seine 
Originalität.  Die  Punkte  Grafik  und 
Sound  brauchen  wohl  nicht  weiter 
erläutert  werden.  Damit  Sie  eine  di¬ 
rekte  Vergleichsmöglichkeit  haben, 
wurden  zwei  Spiele  ausgesucht,  de¬ 
ren  Grafik  oder  Sound  wir  derzeit 
für  das  Beste  halten:  Bei  der  Grafik 
wäre  das  »Impossible  Mission«, 
beim  Sound  »Ghostbusters«.  Beiden 
geben  wir  auf  dem  entsprechenden 
Gebiet  11  Punkte.  Warum  so  wenig, 
wenn  wir  sie  doch  für  die  besten  hal¬ 
ten?  Nun,  die  Noten  müssen  steige- 
rungsfähig  bleiben.  Gerade  die  für 
die  nächsten  Monate  angekündig¬ 
ten  Neuerscheinungen  sollen  näm¬ 
lich  mit  bisher  ungeahnter  Grafik 
und  Sound  auftrumpfen.  Weiter 
geht ’s  mit  dem  Punkt  Schwierig¬ 
keitsgrad.  Hier  eine  Note  zu  verge¬ 
ben,  fällt  schwer,  ändert  sich  der 
Schwierigkeitsgrad  bei  den  meisten 
Spielen  doch  laufend.  Wir  wollen 
hier  überschlagsmäßig  angeben, 
für  wie  schwer  man  das  Spiel  halten 
darf.  Unlösbare  Spiele  erhalten  15 
Punkte.  Auch  hier  vielleicht  ein  Bei¬ 
spiel:  »Championship  Loderunner« 
würde  14  Punkte  erhalten.  Als  letz¬ 
tes  noch  die  Motivation.  Wie  lange 
wird  man  wohl  Spaß  an  dem  Spiel 
haben.  Emen  Nachmittag  oder  meh¬ 
rere  Monate?  Motivation  bedeutet 
aber  auch,  wie  schwer  es  einem 
fällt,  sich  nachts  um  2  Uhr  endlich 
vom  Spiel  loszureißen  und  ins  Bett  zu 
gehen. 

Damit  die  Bewertungen  einerseits 
möglichst  objektiv,  andererseits  von 
Ausgabe  zu  Ausgabe  immer  ver¬ 
gleichbar  sind,  werden  sie  jeden 
Monat  von  einem  festen  Team,  be¬ 
stehend  aus  Redaktionsmitgliedern 
und  freien  Mitarbeitern,  ausdisku¬ 
tiert.  Wir  halten  uns  dabei  nicht  für 
unfehlbar,  glauben  aber,  faire  Ent¬ 
scheidungen  treffen  zu  können. 

(B.  Schneider/M.  Kohlen/rg) 


Trends  und  Flops 

Auch  diese  Spalte  wird  vorläufig 
zu  einer  festen  Einrichtung  werden. 
Hier  werden  wir  über  Trends  auf 
dem  Spielesektor,  aber  auch  über 
Flops  berichten. 

Nun  gleich  hmein  ins  Getümmel: 
Lange  erwartet  und  zum  Redak¬ 
tionsschluß  immer  noch  nicht  liefer¬ 
bar  waren  die  US-April-Neuerschei- 
nungen  der  Firmen  Electronic  Arts, 
Broderbund  und  Epyx.  Schon  seit 
Wochen  kursieren  Gerüchte  um 
Programme  wie  »Summer games  II«, 
»Karateka«,  »Rescue  on  Fractalus«, 
»Skyfox«  und  einige  andere  mehr. 
Teilweise  handelt  es  sich  hier  um 
Umsetzungen  von  Apple-  oder  Ata¬ 
ri-Programmen,  von  deren  hoher 
Qualität  man  sich  schon  überzeugen 
konnte.  Auch  von  den  anderen  Neu¬ 
erscheinungen  dieser  Firmen  hört 
man  bis  jetzt  nur  Gutes.  Wir  bleiben 
am  Ball  und  versuchen,  so  schnell 
wie  möglich  über  diese  Spiele  zu 
berichten.  »Mail  Order  Monsters« 
und  »Racing  Destruction  Set«  er¬ 
reichten  uns  erst  nach  Redaktions¬ 
schluß  und  werden  in  der  64'er- 
Ausgabe  8  besprochen. 

Um  beim  Thema  Trends  zu  blei¬ 
ben:  Daß  man  heutzutage  mit  primi¬ 
tiven  Schießspielen  keinen  Hund 
mehr  hinterm  Ofen  hervorlocken 
kann,  sollten  die  Softwarehersteller 
inzwischen  begriffen  haben.  Und 
auch  ein  einfaches  Jump-and-Run- 
Spiel,  das  keinerlei  neue  Ideen  mit 
sich  bringt,  wird  wohl  nur  wenige 
Käufer  finden.  Trotzdem  tauchen  da 
immer  noch  Spiele  wie  »Super  Zax- 
xon«  auf.  »Super  Zaxxon«  ist  grafisch 
schlechter  als  das  echte  »Zaxxon«, 
hat  aber  dafür  mehr  unterschiedli¬ 
che  Stufen.  Langeweile  ist  aller¬ 
dings  vorprogrammiert,  denn  am 
Spielablauf  (Ballern,  Ballern,  Bal¬ 
lern  ...)  hat  sich  überhaupt  nichts 
geändert.  Weiteres  Beispiel  ist 
»Conan«.  Wer  nun  einen  Adrenalin¬ 
spiegelheber  erwartet,  der  wird  von 
einem  einfallslosen  Jump-and-Run- 
Spiel  mit  einfacher,  ruckhafter  Gra¬ 
fik  enttäuscht.  Was  hätte  sich  nicht 
alles  aus  einem  solch  gewaltigen 
Stoff  machen  lassen.  Wohlgemerkt: 
Diese  beiden  Spiele  sind  leider  kei¬ 
ne  Einzelfälle.  Besonders  tragisch  ist 
nur,  daß  gerade  zwei  relativ  be¬ 
kannte  Firmen,  Hesware  und  Data- 
most,  für  diese  Flops  verantwortlich 
sind.  Eines  sei  also  jedem  gesagt, 
der  sich  ein  Spiel  kaufen  möchte: 
Immer  vorher  Probespielen  oder 
Testberichte  lesen,  am  besten  bei¬ 
des,  denn  keiner  gibt  gern  100  Mark 
für  nichts  und  wieder  nichts  aus. 

(B.  Schneider/M.  Kohlen/rg) 


Master  Of  The  Lamps 

In  diesem  Spiel  von  Activision 
geht  es  zu  wie  in  einer  Geschichte 
aus  Tausendundeiner  Nacht:  Sie 
müssen  als  Prinz  einen  bösen  Lam¬ 
pengeist  in  die  Lampe  zurückbeför¬ 
dern,  damit  Sie  die  Erbnachfolge 
antreten  können.  Doch  leider  ist  die 
Lampe  kaputt,  und  ihre  Einzelteile 
sind  über  knapp  20  Screens  ver¬ 
streut.  Sie  müssen  von  Ihnen  zusam¬ 
mengesucht  werden.  Von  Screenzu 
Screen  fliegt  man  durch  einen  »Zeit¬ 
tunnel«  in  schneller  und  gut  ge¬ 
machter  3D-Grafik.  Am  Ende  des 
Fluges  erwartet  den  Spieler  dann 
der  Lampengeist.  Dieser  wirft  mit 
farbigen  Noten,  die  man  nur  abweh- 
ren  kann,  wenn  man  schnell  genug 
einen  gleichfarbigen  Gong  an¬ 
schlägt.  Hat  man  diesen  Angriff 
überstanden,  gehört  einem  auch 
schon  eines  der  Lampenteile,  und 
weiter  geht’s  durch  den  Zeittunnel. 
Wie  schon  gesagt,  ist  die  Grafik 
recht  schön.  Besonders  gut  ist  aber 
die  Musik  geraten:  In  Ghostbusters- 
Qualität  dröhnt  einem  da  pro  Screen 
eine  andere  Melodie  entgegen,  die 
stilistisch  zwar  nicht  zum  Stil  paßt 
(Boogie  Woogie  im  Orient?),  dafür 
aber  der  reinste  Ohrenschmaus  ist. 
Da  vergißt  man  sogar  das  Spielen. 
Damit  ist  es  allerdings  auch  schon 
getan.  Abwechslungsreich  ist  das 
Ganze  nämlich  wirklich  nicht.  Die 
zwei  geschilderten  Situationen  wie¬ 
derholen  sich  nur  mit  steigendem 
Schwierigkeitsgrad.  Schade,  denn 
sonst  wäre  dies  derzeit  eines  der  be¬ 
sten  Spiele,  (B.  Schneider/rg) 
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World  Series  Baseball 


Sportspiele  scheinen  sich  zu  den 
Rennern  des  Sommergeschäfts  1985 
zu  entwickeln.  Paradoxerweise 
kommt  eine  der  besten  Simulatio¬ 
nen  einer  typisch  amerikanischen 
Sportart  aus  England:  Baseball.  Wer 
das  Spielprinzip  absolut  nicht  kennt, 
der  wird  seine  Schwierigkeiten  ha¬ 
ben.  Die  Anleitung  geht  davon  aus, 
daß  man  die  Spielregeln  kennt.  Wer 
aber  ungefähr  weiß,  wie  es  geht, 
dem  stehen  spannende  Stunden  am 
Computer  bevor,  ob  allein  gegen 
den  sehr  spielstarken  Computer 
oder  zu  zweit.  Der  Joystick  erfüllt  da¬ 
bei,  je  nach  Spielsituation,  verschie¬ 
dene  Funktionen,  sei  es  nun  die 
Schlägerhaltung  oder  die  Spieler- 
anwahl.  Neben  der  Aufsicht  auf  das 
gesamte  Spielfeld  werden  auf  einer 
Anzeigetafel  die  Spieler  in  Großauf¬ 
nahme  gezeigt.  Die  Spieler  laufen 
trickfilmähnlich  ein  und  übers  Feld, 
und  für  die  Spielpausen  gibt 's  sogar 
eine  Tanzgruppe.  Weniger  gelun¬ 
gen  ist  dagegen  der  Sound,  der  ab¬ 
gesehen  von  der  amerikanischen 
Nationalhymne  und  der  Begleitmu¬ 
sik  der  Tänzerinnen,  auf  einfache 
Ball-  und  Klatschgeräusche  be¬ 
schränkt  ist.  Wie  schon  erwähnt,  ist 
der  Computer  recht  spielstark,  eher 
schon  zu  stark.  Aber  am  meisten 
Spaß  machen  solche  Spiele  ja  so¬ 
wieso  zu  zweit.  Für  Anfänger  kommt 
die  komplizierte  Bedienung  er¬ 
schwerend  hinzu.  Wer  sich  aber 
trotzdem  nicht  abschrecken  läßt, 
der  erhält  eine  der  besten  Mann¬ 
schaftssport-Simulationen,  die  es 
derzeit  gibt.  •  (B.  Schneider/rg) 
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Rally  Speedway 

Autorenn-Simulationen  gibt  es  in¬ 
zwischen  viele.  Überzeugt  hat  uns 
aber  ein  Programm  von  Adventure 
Int.  und  Commodore  (!).  »Rally 
Speedway«  hat  keine  aufwendige 
Grafik  und  keinen  besonderen 
Sound.  Die  Idee  eines  Autorennens 
ist  relativ  alt  und  die  Ausführung 
nicht  überragend.  Wenn  zwei  Spie¬ 
ler  über  die  Strecken  jagen,  dann  ist 
ordentlich  was  los,  Da  sich  alles  auf 
einem  Screen  abspielt,  und  nicht  auf 
zweien  wie  bei  Pitstop  II,  mußte  eine 
Sonderregelung  eingeführt  wer¬ 
den:  Wer  zu  weit  zurückblickt,  erhält 
fünf  Strafsekunden,  dann  werden 
beide  Wagen  wieder  Kopf  an  Kopf 
gestartet.  Verursacht  man  eine  Kolli¬ 
sion  mit  einem  der  zahlreichen  Hin¬ 
dernisse,  gibt ’s  gleich  zehr  Strafse¬ 
kunden.  Natürlich  kann  man  sich 
gegenseitig  rammen  oder  von  der 
Fahrbahn  drängen. 

In  einem  Hauptmenü  können  sehr 
viele  die  Fahreigenschaften  der  Au¬ 
tos.  betreffende  Parameter  einge¬ 
stellt  werden.  Dazu  gehören,  neben 
den  Witterungsbedingungen,  auch 
die  Höchstgeschwindigkeit  und  das 
Beschleunigungs-  und  Bremsver¬ 
mögen.  Wem  die  sechs  mitgeliefer¬ 
ten  Rennstrecken  nicht  ausreichen, 
der  kann  sich  mit  einem  Screen- 
Editor  ganz  einfach  selber  welche 
basteln.  Rally  Speedway  ist  neben 
Pitstop  II  das  interessanteste  derzeit 
erhältliche  Autorennen,  vorausge¬ 
setzt,  man  spielt  zu  zweit.  Der  Com¬ 
puter  hält  sich  selbst  nämlich  wohl¬ 
weislich  vom  Lenkrad  fern. 

(B.  Schneider/rg) 


Super  Huey 

Vom  Programmierer  dieses  Spiels 
war  man  bisher  nur  Action  gewöhnt: 
Paul  Norman  ist  der  Autor  der  be¬ 
kannten  Spiele  »Forbidden  Forest«, 
»Aztec  Challenge«  und  »Caverns  of 
Khafka«.  Mit  »Super  Huey«  wagte  er 
sich  nun  in  das  Genre  der  Simulato¬ 
ren.  Und  das  mit  recht  gutem  Erfolg. 
Simuliert  wird  das  Fliegen  eines 
»UH-lX«-Helikopters,  eines  der  neue¬ 
sten  aus  der  Realität  gegriffenen 
Modelle.  Hat  man  sich  durch  das 
Anleitungsmaterial  durchgekämpft, 
weiß  man  nicht  nur  über  die  Bedie¬ 
nung  des  Simulators  Bescheid,  son¬ 
dern  hat  gleich  ein  paar  Lektionen 
über  echte  Hubschrauber  im  klu¬ 
gen  Köpfchen.  Der  reale  UH-1X  hat 
übrigens  ein  besonderes  Stabilisa¬ 
tionssystem,  das  das  Fliegen  we¬ 
sentlich  vereinfacht.  Natürlich  wur¬ 
de  das  in  der  Simulation  berücksich¬ 
tigt. 

Hat  man  den  Huey  erst  einmal  in 
die  Lüfte  erhoben,  bietet  sich  ein 
eindrucksvoller  3D-Effekt.  Das  ma¬ 
jestätische  Schwebegefühl  kann 
man  mit  vier  verschiedenen  Modi 
erleben:  Flight  Instruction,  Explora¬ 
tion,  Rescue  und  Combat.  Flight  In¬ 
struction  soll  den  Spieler  mit  be¬ 
stimmten  Flugtechniken  und  der  Be¬ 
dienung  vertraut  machen,  Explora¬ 
tion  ist  die  Simulation  eines  Erkun¬ 
dungsfluges.  Bei  Rescue  müssen 
Soldaten  gerettet  und  an  sichere  Or¬ 
te  gebracht  werden.  Und  Combat 
schließlich  ist  der  aggressive  Teil. 
Hier  heißt  es:  Kampf  den  Panzern, 
Flaks  und  Feindhubschraubern. 

(M.  Kohlen/rg) 
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Slapshot 

Sportspiel-Enthusiasten  dürfen 
sich  freuen:  »Slapshot«  bietet  zwar 
nicht  alles,  was  ein  Real-Life-Eis- 
hockeyspiel  an  Spaß  bringt,  ist  aber 
doch  eines  der  schönsten  Sportspie¬ 
le,  die  es  gibt. 

Gegen  den  Computer  kann  man 
leider  nicht  spielen,  aber  zu  zweit 
macht  es  sowieso  mehr  Spaß. 

Slapshot  erinnert  sehr  stark  an 
Soccer,  spielt  sich  aber  etwas  an¬ 
ders.  In  Slapshot  ist  Faulen  erlaubt: 
Ein  kurzer  Druck  auf  den  Feuer¬ 
knopf,  und  der  Gegner  stolpert 
über  den  gemein  zwischen  die  Bei¬ 
ne  gelegten  Hockeyschläger.  Und 
während  er  da  verwirrt  auf  dem  Bo¬ 
den  sitzt,  nimmt  man  ihm  kurzer¬ 
hand  den  Puck  ab  und  marschiert  in 
Richtung  Tor. 

Fault  man  zu  oft,  schreit  der 
Schiedsrichter  in  gut  verständli¬ 
chem  Englisch  »Penalty!«  und  ver¬ 
ordnet  ein  Bulli.  Bei  einem  Schuß  ins 
Tor  hört  man  ein  begeistertes  »He 
scored!«  und  wird  von  rauschendem 
Applaus  (vermischt  mit  Pfiffen)  ge¬ 
feiert.  Die  Sprachausgabe  wurde 
von  Electronic  Speech  Systems  pro¬ 
duziert,  die  auch  schon  den  Spielen 
»Impossible  Mission«  und  »Ghostbu- 
sters«  zum  Erfolg  verhalten. 

Wenn  Slapshot  gegen  den  richti¬ 
gen  Gegner  gespielt  wird,  macht  es 
riesig  Spaß.  Es  kann  zwar  nicht  ganz 
an  das  gewisse  Etwas  von  Soccer 
anknüpfen,  ist  aber  ein  durchaus 
empfehlenswertes  Spiel.  Noch  ein 
Hinweis  zum  Schluß.  Für  Joysticks 
mit  automatischen  Dauerfeuer  ist 
dieses  Spiel  nicht  geeignet. 

(M.  Kohlen/rg) 


Titel 

Slapshot 

5  7  9  11  13  IS 

Spielidee 

Grafik 

rTTTT 

Schwierigkeit 

nicht  zu  bewerten 

xr 

TT 

Tn 

Besonderheiten 

Hersteller 

Preis 

Bezugsquelle 

nur  für  2  Spieler 
Artwork-Anirog 
zirka  29  Mark 
Rushware 

An  der  Gümpge- 
brücke  24 

4044  Kaarst  2 

Crystal  Castles 

»Crystal  Castles«  ist  den  Spielhöl¬ 
lenfreaks  ein  Begriff.  Nachdem  man 
die  Atarisoft-Versionen  für  Telespiel, 
Atari-  und  Apple-Computer  nicht 
gerade  als  gut  bezeichnen  kann,  hat 
sich  die  englische  Firma  Thunder- 
vision  des  Problems  angenommen 
und  eine  C  64-Version  produziert. 
Das  Ergebnis  ist  beeindruckend: 
Die  Grafik  ist  identisch  zu  der  des 
Automaten,  nur  die  Auflösung  der 
Sprites  kommt  nicht  ganz  an  die  der 
Spielhallenversion  heran. 

Bei  Crystal  Castles  handelt  es  sich 
um  ein  Pac-Man-ähnliches  Spiel, 
das  auf  dreidimensionalen  Ebenen 
spielt.  Held  des  Spiels  ist  ein  kleiner 
Bär,  der  herumläuft  und  Punkte  auf¬ 
sammeln  muß.  Dabei  wird  er  gestört 
durch  laufende  Bäum^  fressende 
Monster  und  die  Hexe  Lorthilda.  Zur 
Stärkung  gibt's  dann  einen  Topf  voll 
Honig  und  einen  magischen  Hut. 

Die  Güteklasse  der  Spielhallen¬ 
zu  Computer-Adaption  ist  erstaun¬ 
lich,  denn  nicht  nur  die  Grafik,  son¬ 
dern  auch  die  spielerischen  Ele¬ 
mente  gleichen  sich.  Die  vielen  klei¬ 
nen  Tricks,  die  sich  auf  dem  Auto¬ 
maten  anwenden  lassen,  sind  auch 
an  der  C  64-Version  benutzbar.  Wer 
die  Nummer  1  am  Automaten  wer¬ 
den  will,  kann  also  vorher  auf  dem 
Computer  üben. 

Crystal  Castles  zeichnet  sich  trotz 
der  schwierigen  Steuerung  durch 
Spielwitz  und  gelungene  Grafik  aus. 
Der  Sound  ist  einfach,  aber  durch¬ 
aus  passend  und  nicht  störend.  Die¬ 
ses  Spiel  ist  eine  gelungene  Anpas¬ 
sung  an  den  Computer. 

(M.  Kohlen/rg) 
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Grafik 

Sound 

Schwierigkeit 

Motivation 
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Hersteller 

Preis 

Bezugsquelle 


beste  Automaten¬ 
umsetzung 
Thundervision 


Thundervision  (in 
der  BRD  noch  nicht 
erhältlich) 


Hexenküche 


Palace  Software  ist  das  Tochterun¬ 
ternehmen  emer  Filmfirma.  Dies 
merkt  man  sofort  an  der  hervorra¬ 
genden  Grafik  dieses  Spieles. 

»Hexenküche«  ist  in  mehreren 
Punkten  etwas  Besonderes.  Als  er¬ 
stes  ist  zu  erwähnen,  daß  dieses 
Spiel  gleichzeitig  in  England  und 
Deutschland  erscheint.  Ein  gleich¬ 
zeitiger  Erscheinungstermin  war 
bisher  unüblich.  Als  zweites  ist  für 
Deutschland  und  England  je  ein  ge¬ 
sonderter  Wettbewerb  ausge¬ 
schrieben.  Zu  gewinnen  ist  ein  gol¬ 
dener  Hexenbesen  (näheres  siehe 
Happy-Computer  7/85).  Als  dritter 
Punkt  ist  der  Text  anzuführen.  Für 
den  deutschen  Markt  ist  die  engli¬ 
sche  Version  übersetzt  worden. 

Ziel  von  Hexenküche  ist  es,  eine 
Hexe  zu  ihrem  goldenen  Besen  zu 
führen.  Zuerst  muß  die  Hexe  durch 
eine  Landschaft  fliegen  und  einen 
Schlüssel  suchen,  mit  dem  sie  in  den 
»Untergrund«  dieser  Landschaft  ge¬ 
langen  kann.  Hier  ist  dann  der  gol¬ 
dene  Besen  versteckt.  Doch  dies 
hört  sich  einfacher  an,  als  es  ist.  Auf 
der  Suche  nach  dem  Schlüssel  wird 
die  Hexe  von  Fledermäusen,  Gei¬ 
stern,  Haien  und  Vögeln  behindert, 
die  ihr  die  Kraft  rauben.  Der  Teil, 
der  im  Untergrund  spielt,  ist  ein 
Hüpf- und  Springspiel,  das  nicht  ein¬ 
fach  zu  bewältigen  ist. 

Alles  in  allem  ist  Hexenküche  ein 
Spiel,  das  Spaß  macht  und  nicht  so 
schnell  langweilig  wird.  Auch  bei 
diesem  Spiel  ist  der  neue  Trend  zu 
niedrigen  Software-Preisen  zu  er¬ 
kennen.  (rg) 
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Wettbewerb 
Palace-Software 
zirka  29  Mark 
Rushware 
An  der  Gümpge- 
brücke  24 
4044  Kaarst  2 
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Listing  des  Monats 


C  64 


HYPRAASS  - 
Ein  Assembler 
der  Spitzenklasse 

Das  war  noch  nie  da. 

Ein  Super-Assembler  zum  Abtippen. 
Mit  Leistungsmerkmalen,  die  Sie  sich 
schon  immer  gewünscht  haben,  über¬ 
trifft  er  jeden  100-Mark-Assembler. 
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Bild  1 .  Formatiertes  Listing  immer  wieder  benötigter  Makros 


HYPRA-ASS  ist  ein  rein  in  Ma¬ 
schinensprache  geschriebe¬ 
ner  3-Pass-Makroassembler 
mit  integriertem  Editor  für  den  C  64 
mit  Diskettenlaufwerk  1541.  Er  be¬ 
legt  etwa  6  KByte  RAM-Speicher 
von  $0801  bis  $1FD7.  HYPRA-ASS  ge¬ 
hört,  was  Leistung  und  Schnelligkeit 
betrifft,  zu  einem  der  besten  Assem¬ 
bler.  Seine  hervorstechendste  Ei¬ 
genschaft  ist  die  Fähigkeit,  um  Be¬ 
fehlsfolgen,  die  in  einem  Programm 
immer  wieder  auftreten,  einen 
Block  beziehungsweise  ein  Makro 
zu  legen,  So  definierte  Befehlsfol¬ 
gen  können  durch  einen  einfachen 
Befehl  an  jeder  beliebigen  Stelle 
des  Programms  aufgerufen  wer¬ 
den.  Diese  Eigenschaft  haben  viele 
Assembler,  aber  nur  wenige  kön¬ 
nen  lokale  Labels  beziehungsweise 
Sprungziele  innerhalb  eines  Ma¬ 
kros  verarbeiten.  Innerhalb  eines 
Makros  sind,  wenn  nicht  besonders 
gekennzeichnet,  alle  Labels  und 
Variablen  lokal.  Neben  vielen 
Pseudo-Opcodes,  mit  denen  sich 
zum  Beispiel  der  Objektcode  auf 


Diskette  assemblieren  läßt  oder 
Quelltexte  verketten  lassen,  kann 
auch  bedingt  assembliert  werden. 
Formatierte  Listings  können  an  be¬ 
liebige  Geräte  gesendet  werden. 
Symboltabellen  lassen  sich  sortiert 
und  unsortiert  ausgeben. 

Quelltexte  werden  bei  HYPRA- 
ASS  wie  normale  Basic-Programme 
erstellt.  Nach  der  Eingabe  von  RE¬ 
TURN  erscheint  die  soeben  einge¬ 
gebene  Zeile  formatiert  auf  dem 
Bildschirm.  Die  dabei  benutzten  Ta¬ 
bulatoren  gönnen  durch  einfache 
Befehle  geändert  werden.  Um  das 
Editieren  von  Quelltexten  möglichst 
bequem  zu  machen,  ist  in  HYPRA- 
ASS  ein  spezieller  Editor  integriert, 
der  den  normalen  Basic-Editor  um 
viele  Funktionen  erweitert.  Neben 
der  automatischen  Zeilennumerie¬ 
rung  können  Zeilen  und  Zeilenbe¬ 
reiche  formatiert  gelistet  werden. 
Auch  das  oft  vermißte  Suchen  und 
Ersetzen,  Find  und  Renumber  sind 
eine  Selbstverständlichkeit  für  die¬ 
sen  Editor. 

(Gert  Möllmann/ah) 


Label: 

Bedingte  As¬ 
semblierung: 

Makro: 


n-Paß: 


Objektcode: 

Quelltext: 

Symboltabelle: 


Sprungmarke 

Abhängig  von  einer  Variablen  können  zum  Beispiel  Quelltextzeilen 
beim  Assemblieren  übersprungen  werden.  Bei  unterschiedlichen 
Variablen  erhält  man  folglich  unterschiedlichen  Objektcode. 
Befehlsfolgen,  die  im  Quelltext  häufiger  benutzt  werden.  Das  Ma¬ 
kro  wird  in  einer  Definitionszeile  mit  einem  Namen  versehen,  unter 
dem  es  im  Quelltext  beliebig  oft  aufgerufen  werden  kann.  Trifft  der 
Assembler  auf  einen  so  definierten  Namen,  so  wird  an  diese  Stelle 
die  vorher  definierte  Folge  von  Befehlen  assembliert. 

Für  n  steht  eine  Zahl,  die  die  Anzahl  der  Assemblerläufe  anzeigt. 

Bei  Assemblern,  die  Labels  verarbeiten  können,  handelt  es  sich  in 
der  Regel  um  2-Pass-Assembler.  Im  ersten  Pass  wird  eine  Syntax¬ 
prüfung  durchgeführt  und  den  Labels  und  Variablen  ein  numeri¬ 
scher  Wert  (Adresse)  zugewiesen.  (Symboltabelle  wird  angelegt). 

Im  zweiten  Pass  wird  dann  der  Objektcode  erzeugt. 

Das  vom  Assembler  erzeugte,  lauffähige  Programm 
Das  mit  dem  Assembler  erstellte  Basic-  oder  Text-File 
Beim  Assemblieren  wird  jedem  Label  und  jeder  Variable  ein  nume¬ 
rischer  Wert  zugewiesen.  Die  Symboltabelle  enthält  eine  Liste  aller 
im  Programm  vorkommenden  Label  und  Variablen  mit  deren  Wert¬ 
zuweisungen. 

Bild  2.  Definition  der  im  Text  auftretenden  Fachbegriffe 


Lebenslauf: 

Ich  bin  28  Jahre  alt.  Nach  dem 
Abitur  im  Jahre  1975  begann  ich 
ein  Mathematikstudmm  an  der 
Ruhr  Universität  Bochum.  Nun, 
nachdem  ich  den  Grundwehr¬ 
dienst  abgeleistet  habe,  beab¬ 
sichtige  ich,  in  die  Datenverarbei¬ 
tung  einzusteigen  und  eventuell 
ein  Informatikstudium  aufzuneh¬ 
men.  Weitere  Pläne  den  C  64  be¬ 
treffend  liegen  schon  vor.  So  ist 
eine  Textverarbeitung  schon  in 
Angriff  genommen. 

Am  Anfang  der  Entwicklung 
von  HYPRA-ASS  stand  ein  Edi- 
tor/Ässemblerpaar,  das  von  mir 
Ende  1984  in  Basic  geschrieben 
wurde,  um  dem  mangelhaften  Ba¬ 
sic  des  C  64  auf  die  Sprünge  zu 
helfen.  Doch  schon  bald  erwies 
sich  die  Langsamkeit  dieser  Pro¬ 
gramme  als  so  nervenzermür¬ 
bend,  daß  für  mich  nur  die  Wahl 
bestand,  entweder  einen  in  Ma¬ 
schinensprache  geschriebenen 
Assembler  zu  kaufen  oder  selbst 
einen  zu  schreiben. 

Da  solche  Assembler  recht  teu¬ 
er  sind,  und  weil  es  eine  interes¬ 
sante  Aufgabe  ist,  einen  Assem¬ 
bler  zu  schreiben,  habe  ich  mich 
für  die  zweite  Alternative  ent¬ 
schieden.  So  entstand  mit  Hilfe 
des  Basic-Assemblers  eine  erste 
Version  von  HYPRA-ASS,  die  wie¬ 
derum  eine  zweite  Version  as- 
semblierte  und  so  weiter. 

Die  Entwicklung  von  HYPRA- 
ASS  verlief  also  in  einem  »boot- 
strapping«-Verfahren,  was  außer¬ 
dem  noch  den  Vorteil  hatte,  daß 
eine  Prüfung  der  Funktionstüch¬ 
tigkeit  des  Programms  schon  zum 
großen  Teil  im  Verfahren  selbst 
stattfand. 

(Gerd  Möllmann) 
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Anwendung  des  Monats 


C  64 


Damit  Sie  wissen, 
was  Sie  ausgeben 

Egal,  ob  Sie  viel  oder  wenig  Geld  ver¬ 
dienen,  auf  jeden  Fall  hat  es  Vorteile, 
einen  Überblick  über  seine  Ausgaben 
zu  haben.  Und  warum  soll  dazu  nicht 
der  C  64  eingesetzt  werden? 

Mit  diesem  elektronischen  Haushaltsbuch 
können  Sie  jederzeit  Bilanz  ziehen. 
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Bild  1.  Ein  Menüpunkt  aus  dem  elektronischen  Haushaltsbuch 


Seit  Anfang  1984  der  C  64  ins 
Haus  kam,  ist  die  Arbeit  daran 
zu  einer  Leidenschaft  gewor¬ 
den.  (Wie  bei  vielen  anderen  auch!) 
Soweit  der  Beruf  es  ermöglicht,  ver¬ 
bringe  ich  meine  Freizeit  (das  sind 
hauptsächlich  die  Wochenenden) 
mit  der  Entwicklung  von  Anwendun¬ 
gen  am  Computer.  Ausgangspunkt 
war  die  Begeisterung  für  technische 
»Spielereien«.  Doch  bald  reizte  die 
Eigenentwicklung  von  Program¬ 
men.  Es  gibt  eine  tiefe  Befriedigung, 
wenn  nach  stunden-  oder  tagelan¬ 
ger  Arbeit  ein  Programmteil  das  er¬ 
ste  Mal  gestartet  wird  und  nach  viel¬ 
leicht  nur  einer  Korrektur  zufrieden¬ 
stellend  läuft.  Ein  andermal  wird 
stundenlang  über  die  Lösung  eines 
Problems  getüftelt.  »Gelernt«  habe 
ich  jedenfalls  dadurch  einiges  über 
die  Basic-Programmierung  des  C 
64.  Wenn  auch  häufig  »Probieren 
über  Studieren«  ging. 

Als  Familienvater  finde  ich  volles 
Verständnis  bei  Frau  und  Tochter. 


(Das  muß  mal  gesagt  werden!) 

In  der  Familie  liegt  der  Ausgangs¬ 
punkt  für  das  Programm.  Die  Auf¬ 
zeichnung  der  monatlichen  Einnah¬ 
men  und  Ausgaben  erfolgte  ma¬ 
nuell.  Das  ließ  natürlich  die  »Ehre« 
des  EDV-Anwenders  nicht  zu.  Ein 
entsprechendes  Programm  mußte 
her.  Es  sollten  nicht  nur  die  Beträge 
als  Salden  auf  Konten  geführt  wer¬ 
den,  sondern  es  sollte  auch  möglich 
sein,  einzelne  Buchungen  wieder 
abzurufen-  Wiederkehrende  Posten 
sollten  über  die  emzSnen  Monate 
hinweg  beobachtbar  sein. 

So  entstand  das  »Haushaltsbuch« 
als  eine  Kombination  aus  sequentiel¬ 
ler  und  relativer  Datei:  die  relative 
zur  Kontenführung  (Salden);  die  se¬ 
quentielle  zur  Speicherung  der  Ko¬ 
stenart,  des  Betrages  und  des  Bu¬ 
chungsdatums  als  Einzelpositionen. 

Von  der  Floppy  lassen  sich  mit  »IN¬ 
PUT«  bekanntlich  nur  88  Zeichen 
einlesen.  Der  relative  Datensatz  hat 
aber  eine  Länge  von  141  Zeichen. 


Die  Alternative  »GET«  in  einer  FOR- 
NEXT-Schleife  ist  sehr  langsam. 
Dies  fällt  besonders  bei  der  Bildung 
des  Jahressaldos  auf. 

Es  blieb  nur,  den  INPUT-Befehl  zu 
modifizieren.  Die  entsprechenden 
DATAs  für  das  kleine  Maschinen¬ 
programm  sind  im  »Haushaltsbuch« 
enthalten  und  werden  in  den  Kasset¬ 
tenpuffer  eingelesen. 

Als  Tauschroutine  fand  gleich  die 
im  64 'er,  Ausgabe  1/85  beschriebe¬ 
ne  SWAP-Simulation  Verwendung. 
Durch  diese  Funktion  konnte  die 
Produktion  von  »String-Müll«  deut¬ 
lich  reduziert  werden. 

Ich  habe  mich  bemüht,  das  Pro¬ 
gramm  »wasserdicht«  zu  machen. 
Floppy  und  Drucker  werden  auf  Be¬ 
reitschaft  geprüft.  Unter  normalen 
Bedingungen  dürfte  es  keinen  Ab¬ 
sturz  geben.  Aber  eine  Eingabe  von 
falschen  Beträgen  muß  der  Anwen¬ 
der  verantworten. 

(Martin  Schumann/gk) 


Lebenslauf 


Martin  Schumann 


Dem  Jahrgang  1949  zugehörig, 
und  damit  den  »alten«  Heimcompu¬ 
teranwendern  zuzurechnen,  begeg¬ 
nete  mir  während  des  Studiums  An¬ 
fang  der  siebziger  Jahre  die  Infor¬ 
matik  zum  ersten  Mal.  Nur  die  we¬ 
nigsten  schenkten  dem  damals  Be¬ 
achtung.  Und  ich  schließe  mich  da 
nicht  aus. 

Aber  die  »programmierbaren«, 
mathematischen  Taschenrechner 
faszinierten  mich  trotzdem.  1975 
konnte  ich  dann  einen  HP-25  mein 
Eigen  nennen.  Die  nächsten  Jahre 
hatte  ich  beruflich  viel  mit  Zahlen 
und  Statistiken  zu  tun.  Dabei  leistete 
mir  der  »Kleine«  wertvolle  Dienste. 

1981  änderte  sich  die  Situation.  In¬ 
zwischen  beruflich  mit  Informations¬ 
systemen  beschäftigt,  wollte  ich  als 


Nutzer  der  EDV  mehr  über  die  ei¬ 
gentliche  Programmierung  wissen. 

Lange  beschäftigte  mich  auch  die 
Frage  nach  dem  »richtigen«  Compu¬ 
ter.  Aufgrund  der  Verbreitung  und 
der  gebotenen  Leistung  fiel  die  Ent¬ 
scheidung  auf  den  C  64,  der  Anfang 
1984  schließlich  gekauft  wurde. 

Anhand  der  in  Zeitschriften  abge¬ 
druckten  Programme  und  diverser 
Bücher  arbeitete  ich  mich  in  die 
Basic-Programmierung  ein.  Try  and 
Error  hieß  die  Devise. 

Nach  mehr  als  einem  Jahr  habe 
ich  noch  nicht  den  Spaß  an  der 
»Computer-Knobelei«  und  der  pro¬ 
grammtechnischen  Lösung  von  Pro¬ 
blemen  verloren. 

(Martin  Schumann) 
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Anwendung  des  Monats 


C  64 


Damit  Sie 
wissen,  was 
Sie  ausgeben 

Das  Programm  »Haushaltsbuch«  dient 
der  Aufzeichnung  der  Ein-  und  Ausga¬ 
ben  im  privaten  Bereich.  Neben  den 
monatlichen  Bestandskonten  (relative 
Dateien)  werden  zur  Dokumentation 
der  Buchungsposten  die  Einzelposi¬ 
tionen  in  sequentiellen  Buchungsda¬ 
teien  gespeichert. 

Die  in  den  relativen  Dateien  geführten  Konten  ermöglichen 
innerhalb  eines  Jahres  den  Abruf  des  aktuellen  Standes  in  der 
»Kasse«.  Aus  den  sequentiellen  Dateien  lassen  sich  alle  Bu¬ 
chungen  mit  Angabe  der  Kostenart,  des  Betrages  und  des  Bu¬ 
chungsdatums  auflisten  oder  einzelne  selektieren;  zum  Bei¬ 
spiel  bestimmte  Kostenarten  oder  Buchungsmonate. 

Geschrieben  wurde  das  »Haushaltsbuch«  für  einen  C  64. 
Das  für  die  Modifikation  des  INPUT-Befehls  notwendige  kleine 
Maschinenprogramm  wird  in  dem  Kassettenpuffer  abgelegt. 
Die  DATAs  für  die  Simulation  der  SWAP-Tauschroutine  werden 
in  der  Zero-Page  in  den  Freiraum  ab  Speicherstelle  7 1 5  einge¬ 
lesen. 

Die  sinnvolle  Nutzung  des  Programms  setzt  ein  Disketten¬ 
laufwerk  voraus.  Ein  Drucker  wäre  recht  nützlich,  ist  aber  keine 
Notwendigkeit.  Sollten  trotz  nicht  vorhandenem  Drucker  die 
betreffenden  Druckroutinen  aufgerufen  werden,  führt  dies  zu 
keinem  Programmabsturz. 

Ausgelegt  ist  das  Druckunterprogramm  für  Epson- 
kompatible  Drucker.  Eine  Anpassung  an  Commodore-Drucker 
sollte  —  falls  es  notwendig  ist — leicht  zu  bewerkstelligen  sein. 

Neben  der  Bereitschaft  des  Druckers  wird  selbstverständ¬ 
lich  die  des  Diskettenlaufwerks  geprüft. 


Funktionsbeschreibung 


Wie  aus  den  einleitenden  Sätzen  ersichtlich,  gliedert  sich 
das  Programm  in  zwei  übergreifende  Programmteile:  die  Kon¬ 
tenführung  und  die  Bearbeitung  der  Buchungspositionen. 

Nach  dem  Start  des  Programms  geben  Sie  bitte  das  zu  bear¬ 
beitende  Jahr  (»aktuelles  Jahr«)  ein.  Der  Zeitraum  wurde  auf 
1984  bis  2000  beschränkt.  Dies  kann  selbstverständlich  dem 
Bedarf  des  Lesers  entsprechend  angepaßt  werden.  Nur  sollte 
dabei  die  Diskettenkapazität  beachtet  werden! 

Nach  Eingabe  der  Jahreszahl  meldet  sich  »Haushaltsbuch« 
mit  dem  Hauptmenü.  Es  stehen  folgende  Funktionen  zur  Ver¬ 
fügung: 

—  1  Konten  anlegen 

—  2  Buchen 

—  3  Kontenübersicht 

(Kontennamen  ausgeben) 

—  5  Monatsübersicht 

—  6  Jahresübersicht 

—  7  Buchungsposten  abfragen 

—  0  Programm  beenden 


Die  Funktion  »Kontennamen  ausgeben«  wird  automatisch 
von  den  übrigen  Funktionen  —  soweit  notwendig  —  aufgeru¬ 
fen.  Denn  warum  sollte  man  sich  die  Nummern  der  einzelnen 
Konten  merken,  dies  kann  der  C  64  viel  besser. 

Wenn  Sie  also  »4«  eingeben,  erfolgt  eine  entsprechende 
Meldung.  Versuchen  Sie  es! 

Konten  anlegen 

Beachten  Sie  bei  dieser  Funktion,  daß  eine  existierende  Da¬ 
tei  des  gewählten  Jahres  gelöscht  wird.  Es  wird  zur  Vorsicht 
abgefragt,  ob  Sie  dies  auch  wirklich  beabsichtigen.  Beantwor¬ 
ten  Sie  die  Frage  mit  »JA«,  so  werden  die  bisherigen  Konten 
gelöscht  und  Sie  aufgefordert,  die  Zahl  der  neu  anzulegenden 
Konten  einzugeben.  Anschließend  können  Sie  die  Konten  be¬ 
nennen.  Drücken  Sie  bei  einer  Kontonummer  RETURN,  so 
wird  das  Anlegen  der  Konten  abgebrochen.  Es  werden  nur  die 
bis  zu  diesem  Moment  eingegebenen  Konten  gespeichert. 
Die  Kontenzahl  (KZ)  wird  entsprechend  korrigiert.  Geben  Sie 
bei  der  Frage  nach  der  Zahl  der  Konten  »0«  ein,  so  wird  die 
Programmfunktion  verlassen.  Dadurch  können  Sie  also  nicht 
mehr  benötigte  Jahre  löschen.  (Klar,  daß  das  auch  außerhalb 
des  Programms  mit  »SCRATCH«  erfolgen  kann.) 

Gleichzeitig  mit  dem  Anlegen  der  relativen  (Salden-) Konten 
werden  auch  die  sequentiellen  Buchungsdateien  eingerich¬ 
tet. 

Die  Zahl  der  Konten  wurde  auf  20  beschränkt,  um  noch  mit 
einer  Bildschirmseite  auszukommen.  Außerdem  sollten  20 
Konten  für  die  private  »Buchführung«  ausreichend  sein.  Wem 
dies  dennoch  zu  wenig  ist,  muß  in  Zeile  1440  die  betreffende 
Prüfung  und  in  Zeile  60  die  Dimensionierung  anpassen. 

Außerdem  wäre  das  Scrollen  des  Bildschirms  über  eine 
Routine  (ähnlich  der  in  Zeile  5800-5830)  zu  steuern. 
Buchen 

r  I  Aufruf  dieser  Funktion  gibt  zuerst  die  Nummern  und  Na¬ 
men  der  Konten  aus.  Durch  Eingabe  der  gewünschten  Num¬ 
mer  wird  das  betreffende  Konto  eingelesen.  Mit  »E«  kann  man 
die  Funktion  ohne  Aktivitäten  verlassen.  Anschließend  wird 
nach  Einnahme  oder  Ausgabe  gefragt.  An  dieser  Stelle  kann 
die  Routine  ebenfalls  durch  die  Taste  »f7«  abgebrochen  wer¬ 
den.  Diese  Möglichkeiten  wurden  eingefügt,  um  ein  Verlassen 
der  Buchungsfunktion  zu  erlauben.  Wurde  jedoch  dieser 
Punkt  überschritten,  bleibt  nur,  eine  Buchung  durchzuführen. 
Bei  Abbruch  werden  die  bis  dahin  getätigten  Buchungen  gesi¬ 
chert. 

Nachdem  Sie  den  Buchungsmonat  angegeben  haben,  wird 
der  alte  Saldo  angezeigt.  Nun  können  »KOSTENART«,  »BE¬ 
TRAG«  und  »TAG«  (durch  Kommata  trennen)  eingetippt  wer¬ 
den.  Wenn  alles  korrekt  ist,  können  weitere  Eingaben  auf  dem 
gewählten  Konto  gemacht  werden.  Wird  die  Frage  nach  weite¬ 
ren  Buchungen  mit  »N«  beantwortet,  werden  die  Eingaben  auf 
das  Konto  »geschrieben«. 

Nun  können  andere  Konten  aufgerufen  oder  die  Funktion 
»Buchen«  verlassen  werden. 

Kontenübersicht 

Wählen  Sie  diese  Funktion,  wenn  Sie  die  Monatssalden  ei¬ 
nes  Kontos  wünschen.  Auch  hier  werden  die  Konten  wieder 
vorgegeben. 

Nach  Anzeige  der  Übersicht  ruft  »f3«  weitere  ab  oder  »fl« 
druckt  die  aktuelle  aus.  Zum  Menü  kommt  man  mit  »f5«  zurück. 
Monatsübersicht  und  Jahresübersicht 

Tippen  Sie  die  »5«  im  Menü  und  geben  den  gewünschten 
Monat  ein,  erhalten  Sie  einen  Überblick  über  die  Salden  aller 
Konten  für  den  betreffenden  Monat. 

Die  »6«  ruft  den  Jahressaldo  aller  Konten  ab.  Dabei  kann  al¬ 
lerdings  der  zu  kumulierende  Zeitraum  (Monate)  frei  gewählt 
werden.  Ober-  und  Untergrenze  können  in  beliebiger  Reihen¬ 
folge  eingegeben  werden. 

Auch  hier  kann  durch  Drücken  von  »fl«  ein  Protokoll  über 
Drucker  erstellt  werden. 
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Programm  beenden 

Mit  dieser  Funktion  kann  das  Programm  »ordnungsgemäß« 
beendet  werden.  Sollte  dies  mal  aus  Versehen  geschehen 
sein,  kann  man  mit  »GOTO  960«  sofort  wieder  zurückkehren. 
Es  reicht,  RETURN  zu  drücken,  da  der  Cursor  entsprechend 
positioniert  wird. 

Buchungsposten  abfragen 

Dieser  Programmteil  springt  in  das  Untermenü  »Sonderfunk¬ 
tion  Buchungsposten  bearbeiten«.  Hier  stehen  als  weitere 
Funktionen  zur  Verfügung: 

<  Datei  laden  > 

2  Datei  sichern 

3  Buchungen  ausgeben 

4  Buchungen  ändern 

5  Buchungen  sortieren 

0  Sonderfunktionen  verlassen 
»Datei  laden«  braucht  nicht  gesondert  aufgerufen  zu  wer¬ 
den,  da  dies  wieder  bei  den  übrigen  Programmteilen  des  Un¬ 
termenüs  geschieht. 

Vor  dem  Start  der  Laderoutine  prüft  der  Computer,  ob  das 
Diskettenlaufwerk  vorbereitet  wurde.  Auch  eine  »falsche«  Da¬ 
tendisk  wird  mit  »Datei  nicht  gefunden«  quittiert.  Es  erfolgt 
Rücksprung  zum  Menü. 

Datei  sichern 

Diese  Funktion  ist  nur  dann  notwendig,  wenn  Änderungen 
(Kostenart  oder  Datum)  durchgeführt  wurden  (vergleiche  »Bu¬ 
chungen  ändern«). 

Allerdings  kann  ein  unbeabsichtigtes  Starten  dieser  Routine 
auch  keinen  »Schaden«  anrichten.  Es  werden  dann  die  Daten 
im  Rechner  gesichert  und  die  identische  Datei  auf  der  Diskette 
gelöscht. 

Darüber  hinaus  wird  nach  Aufruf  dieses  Programmteils  zur 
Vorsicht  gefragt,  ob  eine  Diskette  eingelegt  wurde.  Zusätzlich 
prüft  der  Computer,  ob  das  Laufwerk  »bereit«  ist. 

Buchungen  ausgeben 

Als  erstes  geben  Sie  ein,  ob  die  Ausgabe  auf  Drucker  oder 
Bildschirm  erfolgen  soll.  Dann  wählen  Sie  die  Datei  (mit  dem 
betreffenden  Kontennamen),  aus  der  Buchungen  selektiert 
werden  sollen.  Gesucht  werden  kann  nach  »Kostenart« 
und/oder  »Buchungsmonat«.  Ist  ein  Suchbegriff  nicht  relevant, 
drücken  Sie  RETURN.  Wurde  beide  Male  RETURN  gedrückt, 
wird  die  Datei  komplett  aufgelistet.  Nach  jeweils  15  Buchungs¬ 
posten  wird  die  Bildschirmausgabe  angehalten  und  mit  Betäti¬ 
gen  einer  beliebigen  Taste  fortgesetzt. 

Hier  bieten  sich  also  vielfältige  Möglichkeiten,  Kostenarten 
über  Monate  hinweg  zu  verfolgen  oder  Monate  in  die  einzel¬ 
nen  Buchungspositionen  zu  »zerlegen«. 

Buchungen  ändern 

Diese  Funktion  ist  dazu  bestimmt,  Änderungen  an  den  Bu¬ 
chungsposten  vorzunehmen.  Das  gilt  aber  nur  für  Kostenart 
und  Buchungsdatum,  wenn  man  sich  bei  der  Eingabe  verse¬ 
hen  und  dies  beim  Buchen  nicht  bemerkt  hat.  Eine  Änderung 
des  Betrages  ist  dagegen  nur  durch  eine  Korrekturbuchung 
möglich,  weil  in  diesem  Fall  auch  die  relativen  Konten  korrigiert 
werden  müssen. 

Gewählt  werden  kann  zwischen  zwei  Änderungsmodi: 

1.  Selektion  und  Korrektur  von  Einzelbuchungen  oder 

2.  Auflisten  aller  Buchungen 

Bei  Änderungen  werden  Spalten  und  Zeilen  beziffert,  so  daß 
die  Datensätze  und  die  Felder  eindeutig  identifiziert  werden 
können. 

Nach  Eingabe  der  betreffenden  Zeilen-  und  Spaltennummer 
wird  das  zu  ändernde  Feld  in  die  spezielle  »Änderungszeile« 
ausgegeben.  Der  Cursor  wird  so  positioniert,  daß  das  (geän¬ 
derte)  Feld  sofort  wieder  übernommen  wird.  Dies  hat  den  Vor¬ 
teil,  daß  bei  nur  einer  Buchstabenänderung  nicht  das  ganze 
Feld  neu  geschrieben  werden  muß. 


Sind  mehrere  Änderungen  vorzunehmen,  können  diese 
nacheinander  durchgeführt  werden. 

Ist  der  letzte  Datensatz  erreicht,  wird  gefragt,  ob  die  geän¬ 
derte  Datei  gesichert  werden  soll.  Dies  wird  in  der  Regel  der 
Fall  sein. 

Buchungen  sortieren 

Die  Buchungen  werden  in  der  Reihenfolge  der  Eingabe  ge¬ 
speichert.  Wird  für  bestimmte  Anwendungen  eine  andere  Fol¬ 
ge  benötigt,  kann  nach  Kostenart  oder  Betrag  oder  Datum  auf¬ 
steigend  sortiert  werden. 

Auch  hier  entscheidet  der  Anwender,  ob  die  neu  sortierte 
Datei  gespeichert  werden  soll.  In  diesem  Fall  wird  es  nicht  im¬ 
mer  gewünscht  sein,  weil  die  Datei  in  einer  bestimmten  Rei¬ 
henfolge  auf  der  Diskette  erhalten  bleiben  soll. 

Ein  Hinweis  sei  an  dieser  Stelle  gegeben.  Bei  umfangreiche¬ 
ren  Dateien  (zum  Beispiel  200  Datensätzen)  können  schon 
ein  bis  zwei  Minuten  vergehen,  bis  der  Computer  die  Vollzugs¬ 
meldung  gibt.  Also  nur  keine  Aufregung,  wenn  er  sich  nicht  so¬ 
fort  wieder  meldet.  Es  muß  nicht  unbedingt  ein  Programmfeh¬ 
ler  vorliegen! 

Die  200  Datensätze  (genauer  201  pro  Konto)  stellen  die 
Obergrenze  dar.  »Vielbucher«  müssen  die  Dimensionierung 
(D$(200,2))  in  Zeile  60  ändern. 

Sonderfunktion  verlassen 

Bevor  das  Programm  zum  Hauptmenü  zurückspringt,  prüft 
es,  ob  Änderungen  oder  Sortierungen  an  der  sich  im  Compu¬ 
ter  befindenden  Datei  vorgenommen  wurden.  Sollten  die  noch 
nicht  gesichert  sein,  kann  dies  jetzt  —  solange  keine  andere 
Datei  von  Diskette  geladen  wurde  —  nachgeholt  werden.  An¬ 
dernfalls  RETURN  drücken,  um  zum  Menü  zu  gelangen. 


Aufschlüsselung  nach 
Zeilennummern 


Die  folgende  Grobeinteilung  kann  vorgenommen  werden: 

1  -  830  Vorbereitung  und  Unterprogramme,  die  der  Schnellig¬ 
keit  wegen,  oder  weil  sie  häufiger  aufgerufen  wer¬ 
den,  an  den  Anfang  gesetzt  wurden  (zum  Beispiel 
Sortieren,  Cursor  positionieren). 

850  -  4310  Hauptmenü  und  Bearbeitung  der  relativen  Datei 
(Kontenführung). 

4500  -  7780  Untermenü  und  Bearbeitung  der  sequentiellen  Bu¬ 
chungsdateien. 

7830  -  7940  DATAs  für  »INPUT«-Modifikation  zum  Einlesen  von  Fi¬ 
les;  werden  in  den  Kassettenpuffer  ab  828  geschrie¬ 
ben: 

Syntax:  input#  Filenummer,  Satzlänge,  Variable.  Er¬ 
laubt  mehr  als  88  Zeichen  (253)  direkt  einzulesen, 
findet  Anwendung  bei  der  relativen  Datei,  Satzlänge 
141  Zeichen. 

7990  -  8050  DATAs  für  die  Simulation  der  »SWAP«- Funktion  (ver¬ 
gleiche  64’er,  Ausgabe  1/85)  von  Boris  Schneider): 
Ermöglicht  das  Vertauschen  zweier  Strings  ohne  zu¬ 
sätzliche  Variable  (»String-Müll«),  eingesetzt  in  der 
Sortierroutine. 

Syntax:  SYS  Startadresse(string1,string2) 
Startadresse  im  Programm:  Speicherstelle  715  in  der 
Zero-Page. 


Wichtiger  Hinweis: 

Sollte  jemand  mit  Simons  Basic  editieren,  ist  zu  beachten, 
daß  nach  dem  ersten  Start  des  Programms  nicht  mehr  alle  Be¬ 
fehle  dieser  Basic-Erweiterung  wegen  der  DATAs  im  Kasset¬ 
tenpuffer  einwandfrei  funktionieren  (Syntax-Error!?) 

Eine  Beeinträchtigung  von  Exbasic  Level  II  konnte  bisher 
nicht  beobachtet  werden. 

Gestartet  wird  das  Programm  mit  RUN. 
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HAUSHALTSBUCH  1985 


FUNKTIONSAUSWAHL: 


-1-  KONTEN  ANLEGEN 
-2-  BUCHEN 

-3-  KONTENUEBERSICHT 

<KONTENNAMEN  AUSGEBEN) 
----->  2-3, 5-7 

-5-  MONATSUEBERSICHT 
-6-  JAHRESUEBERSICHT 

-7-  BUCHUNGSPOSTEN  ABFRAGEN 

-0-  PROGRAMM  BEENDEN 

AUSWAHL  (0-7) 


Martin  Schumann 


HAUSHALTSBUCH  1985 


SONDERFUNKTION 


BUCHUNGSPOSTEN  BEARBEITEN 

<DATEI  LADEN)  - ->  3-5 

2  DATEI  SICHERN 

3  BUCHUNGEN  AUSGEBEN 

4  BUCHUNGEN  AENDERN 

5  BUCHUNGEN  SORTIEREN 

0  SONDERFUNKTION  VERLASSEN 

AUSWAHL  0-5 

Einzelne  Menüs  vom  »Haushaltsbuch« 


HAUS 

KOSTENART 

1934 

BETRAG 

DATUM 

HAKEN/HOLZLEISTE 

-5.90 

09. 10.84 

BLUMENTOPF 

-4.90 

10. 10.84 

ROLLTISCH /COMPUTER 

-49.00 

10. 10.84 

SESSEL/SCHLAFZ. 

-164.00 

13. 10.84 

CONCENTRA-BIRNEN 

-6.00 

29. 10.84 

TEPPICHWOLLE 

-266.50 

29. 10.84 

EICHEPANEELE 

-81.45 

30. 10.84 

SUMME 

-577.75 

Eine  bestimmte  Kostenart  herausgegriffen 
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Variable  Bedeutung 

A 

=  enthält  bei  Änderungen  die  Satznummer  des  zu 
ändernden  Feldes 

AK 

=  Anzahl  der  Konten  (relative  Datei) 

AV 

=  Flag  bei  Änderungen 

B 

=  Feldnummer  des  zu  ändernden  Feldes 

BD$ 

=  Buchungstag 

BL$ 

=  Leerstring  mit  20  Positionen,  wird  beim  Auffüllen 
der  Inhalte  von  RC$  benutzt 

C 

=  Zeiienposition  des  Cursors 

D$(Y,I) 

=  Satz  der  sequentiellen  Buchungsdatei 

Y,0  =  Kostenart;  Y,1  =  Betrag 

Y,2  =  Buchungsdatum 

F% 

=  Normalwert  in  Speicherstelle  768  der  Fehlerrouti¬ 
ne  des  Interpreters 

F$(l) 

=  Bezeichnung  der  Funktionen  im  Hauptmenü 

FBS(I) 

=  Feldbezeichnung  (sequentieller  Datensatz) 

FSS(I) 

=  Sonderfunktionen 

FU 

=  gewählte  Funktion  des  Untermenüs 

GS 

=  Gesamtsaldo  in  den  Übersichten 

l,J,T,K,Y 

=  Laufvariable  in  Schleifen 

J$ 

=  aktuelles  Jahr  (4stellig) 

JAS 

=  die  beiden  Endziffern  des  aktuellen  Jahres 

JS 

=  Jahressaldo  aller  Konten 

KNS(I) 

=  Name  der  Konten  (relative  Datei) 

KN 

=  Nummer  des  gewählten  Kontos  (Datei) 

KZ 

=  Zahl  der  Konten  (wird  nur  bei  »Konten  anlegen« 
benutzt;  sonst  AK) 

L 

=  Position  des  Dezimalpunktes 

LV 

=  Laufvariable  (Buchen)  für  die  Aufbereitung  der  Fel¬ 
der  der  sequentiellen  Buchungsdateien 

M$(l) 

=  Monatsnamen 

MS(I) 

=  Jahressalden  der  Konten  bei  Jahresübersicht 

MOS 

=  String  für  gewählten  Monat  (für  Datum) 

M 

=  Nummer  des  gewählten  Monats 

1») 

=  Kurzform  des  Kontennamens  für  sequentielle 

Datei) 

O 

=  Obergrenze  bei  Jahressaldo,  wenn  nicht  das 
komplette  Jahr  kumuliert  werden  soll 

RC$ 

=  relativer  Datensatz  (Record) 

U 

=  Untergrenze  bei  Jahressaldo,  wenn  nicht  das 
komplette  Jahr  kumuliert  werden  soll. 

S 

=  Spaltenposition  des  Cursors 

S(M) 

=  Monatssalden  des  eingelesenen  Kontos 

S$(l) 

=  Monatssalden  als  String 

S% 

=  Flag  für  Sortieren 

SBS(I) 

=  enthält  die  Suchbegriffe  auf 

SU 

=  1.  bei  »Buchungen«:  Buchungsbetrag 

2.  bei  »Buchungen  ausgeben«:  Summen  der 
Ausgaben 

3.  übernimmt  Salden  für  »Summen  aufbereiten« 

X 

=  gewählte  Funktion 

x$ 

=  Eingaben  in  GET-Funktionen 

z 

=  Anzahl  der  Sätze  einer  sequentiellen  Datei 

ZS(M) 

=  Zwischenspeicher  der  Monatssalden  der  Konten 

ZZ 

=  1.  Zwischenzähler  in  »Konten  anlegen«  für  Zahl 
der  tatsächlich  eingegebenen  Kontennamen 

2.  Zeilenzähler  für  Bildschirmausgabe 

ZW 

=  Zwischenspeicher  für  die  Nummer  der  aktuellen 
sequentiellen  Datei  im  Computer 

Tabelle  1.  Die  wichtigsten  Variablen 

Auf  eines  sei  noch  aufmerksam  gemacht.  Durch  die  Kom¬ 
mentarzeilen  sind  eine  Vielzahl  von  Blöcken  entstanden,  die 
der  Gliederung  des  Programms  dienen,  aber  ohne  Bedeutung 
für  den  Programmablauf  sind.  Es  lassen  sich  einige  Byte  ein¬ 
sparen,  wenn  die  Kommentare  entfallen.  Da  sie  keine  Sprung¬ 
adressen  sind,  kann  dies  auch  bedenkenlos  geschehen. 

Das  Programm  selbst  gewinnt  jedenfalls  dadurch  an  Schnel¬ 
ligkeit. 

Nun  wünsche  ich  allen  Interessierten  viel  Erfolg  beim  Einge¬ 
ben  und  Anwenden  des  »Haushaltsbuchs«.  Möge  die  Kasse 
nun  immer  stimmen.  (Martin  Schumann/gk) 
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1  REM  *********************************** 

2  REM  *>HAUSHALTSBUCH<* 

3  REM  *  * 

4  REM  *  MARTIN  SCHUMANN  * 

5  REM  *****»*************«-***********« 

40  PRINT  CHRT-  <  1 47 >  :  POKE  21 1 , 12:  POKE  214,1B:SYS 
5S732: PRINT" ICH  LESE  DATEN  !" 

50  GOSUB  7830: BOSUB  7970:DIM  SB* (2) ,FS (7) , FS* (5 
) 

60  DIM  MSC20) ,MT<12> ,DT<200,2> ,S<12) ,ZS(12> ,  N*  ( 
20) ,S*C20) ,KN*C20) : T1*="0" 

70  M*  (1 )  = 11 J  ANU AR  <3SP ACE  >  "  :  MT  ( 2 )  =  "  FEBRUAR  C2SPACE 
>“ 

80  MT (3 ) = " MAERZ {4SPACE } " : MT ( 4 ) = " APRIL C4SPACE > " 

90  MT(5)="MAI C6SPACE}":MT(6)="JUNI <5SPACEJ " 


100  MT (7) = 
110  MT (9) = 


120  MT (11) =" NOVEMBER  " : MT ( 12) ="DEZEMBER 


130  FT  C 1 )  = 
140  FT (2) = 
150  FT(3)= 
160  FT (4 ) = 
170  FT (5) = 
1B0  F T-  ( 6 )  = 
190  FT(7)= 
200  FT (0) = 


'JULI 15SPACE } " : MT ( 8 ) = " AUGUST  {3SP ACE }  ’ 
'  SEPTEMBER " : MT ( 1 0 ) = " OKTOBER {2SPACE > " 


KONTEN  ANLEGEN I6SPACE J " 

BUCHEN  -C 1 4SPACE1 " 

KONTENUEBERS I CHT C4SPACE 1 " 
KONTENNAMEN  AUSGEBEN" 

MONATSUEBERS I  CHT  -C4SPACE  J  " 
JAHRESUEBERSICHT  C4SPACE J " 
BUCHUNGSPOSTEN  ABFR. " 

PROGRAMM  BEENDEN {4SPACEJ" 

210  F7.=PEEK  (768)  :  GOTO  880 
220  REM 

230  REM  =*=  DRUCKER  VORHANDEN? 

240  REM 

250  POKE  768, 185: OPEN  1,4: PRINTttl ,  : CLOSE  1 : PO 

KE  768, F7. 

260  IF  STO-128  GOTO  290 

270  POKE  214,24:  POKE  2 11, 2: SYS  58732: PRINT" I6SP 
ACE > DRUCKER  NICHT  BEREIT  !<9SPACE>"; 

280  : FOR  1=0  TO  2500: NEXT 
290  RETURN 
300  REM 

310  REM  =*=  FLOPPY  VORHANDEN? 

320  REM 

330  POKE  7 68 ,185: OPEN  1 , 8 , 15 , " I" : CLOSE  1 : POKE  7 
68,  F7. 

340  IF  STO-128  GOTO  365 

350  C=23:S=9: GOSUB  830: PRI NT" {RED , SPACE1FLOPPY 
NICHT  BEREIT  ! " 

360  : FOR  1=0  TO  2500: NEXT: RETURN 
365  OPEN  1,8,15,"  M-W  "  +CHRT-  ( 7 )  +CHRT  ( 28 )  +CHRT  ( 1 )  + 
CHRT ( 15) : REM  FLOPPYZUGRIFF  BESOHL. 

370  INPUT# 1 ,R: CLOSE  1 

375  IF  R=21  THEN  S=9: C=23: GOSUB  830: PRINT" {RED} 
DISKETTE  EINLEGEN  ! " : FOR  1=0  TO  3500: NEXT 
380  RETURN 

390  REM  ============================= 


400  REM  **  SHELL  -  SORT  / (NUM. )  ** 

410  REM  ============================= 

420  D=4 

430  IF  D<N  THEN  D=D+D:GDTO  430 

440  D=D— 1 

450  D=INT (D/2) 

460  IF  D< 1  THEN  RETURN 
470  FÜR  J=1  TO  N-D 
480  : FOR  I=J  TO  1  STEP-D 

490  :  IF  VAL (DT ( I+D , X) ) >=VAL (Di ( I , X) ) GOTO  540 
500  :  FOR  T=0  TO  2 

510  :  SYS  715(D*(I,T),D*(I+D,T)) 

520  :  NEXT  T 
530  : NEXT  I 
540  NEXT  J 
550  GOTO  450 

580  REM  **  SHELL  -  SORT /ALPHA  *■* 

590  REM  =========================== 

600  D=4 

610  IF  D<N  THEN  D=D+D:GOTO  610 

620  D=D— 1 

630  D=INT(D/2) 

640  IF  D<1  THEN  RETURN 

650  FOR  J=1  TO  N-D 

660  : FOR  I=J  TO  1  STEP-D 

670  :  IF  DT-  ( I +D ,  X )  >=D*  ( I ,  X  )  THEN  720 

680  :  FOR  T=0  TO  2 

690  :  SYS  715 (DT ( I ,T) ,D* ( I+D,T) ) 

700  :  NEXT  T 
710  : NEXT  I 
720  NEXT  J 
730  GOTO  630 
740  REM 

750  REM  *=*  UEBERSCHRIFTEN 
760  PRINT  TAB  (8)  "  CORANGE >  U_C CCC C CC C  C C C C C C CC  C.C.CCC 
.CT  "  :  REM  22  CHRT  (99)  =SH  IFT  C 
770  PRINT  T AB ( 8 > "  fi"  ;  F*  ( X ) ; "  £":REM  MENUEFUNKTIO 
NEN 


<250> 
<046> 
<230 > 

<  0 1 5  > 

<254> 

<224 > 

<1S4> 

<071  > 

<027> 

<088> 

<124> 

<  1 38  > 
<1  11> 

<  1  47> 
<045> 
<036> 
<055> 
<0 13> 
<080> 
<070> 
<039  > 
<255> 
<010> 

<  1 07  > 
<013> 
<127> 

<245> 

<005> 

<039> 

<038> 

<  1 77  > 

<  188> 
<040> 
<208> 

<034> 

<088> 


<242  > 
<062  > 


<084> 

<177> 

<075> 
<011> 
<060> 
<083> 
< 080  > 
<207> 
<168> 
<207  > 
<  226  > 
<  1 8 1  > 
<102> 
<078> 
<091  > 
<  188> 
<227> 
<026> 
<025> 
<234> 
<074> 
<058> 
<255> 
<078> 

<  132> 
<093> 

<  132> 

<  1 5 1  > 

<  1 06  > 
<027> 
<003> 
<002> 
<1  13> 
<152> 
<  206  > 
<205> 
<158> 
<254> 

<  1 1 7  > 

<041  > 

<  171  > 

<  1 23  > 


780  PRINT  TAB  (8)  "  J CC CCCCCCCC CG CC CC C CCCC C  K {BROWN 
REM  COM-TASTE+2 
790  RETURN 

810  REM  =*=  CURSOR  POSITIONIEREN  =*= 

830  POKE  211 , S: POKE  214, C: SYS  58732: RETURN 
850  REM  *•*  ERSTER  BILDSCHIRM  **** 

860  REM  =============================== 

870  : 

880  POKE  53281,7:  POKE  53280,8: PRI NT" CBROWNJ ": BL 
*=" <20SPACE> " : REM  20  BLANK 
890  GOSUB  4010: POKE  788,52: REM  STOP  AUS 
900  INPUT "AKTUELLES  JAHR  (1984-1999):  “;JT:JAT= 
RIGHTT ( JT,2) 

910  :  IF  JT^'igST/'OR  JT>"  1999"THEN  F'RINT"UNZULAE 
SSIGES  JAHR!  "  :  PRINT"  -C2UF‘>";  :GOTO  900 
920  REM  SHIFT/CRSRT  <CHRT(145>> 

930  REM  =============================== 

940  REM  MENUE  /  AUFRUF  UNTERPROGRAMME 
950  REM  ============================= 

960  GOSUB  4010 

970  PRINT  TAB ( 10) " {RED1FUNKTIONSAUSWAHL: " 

980  PRINT  TAB  (10)" - ":  PRINT 

990  PRINT  TAB(5) " {BLUEJ-1- [BROWN, 2SP ACE JKONTEN 
ANLEGEN” 

1000  PRINT  TAB (5) " {BLUEI-2- {BROWN ,2SPACEIBUCHEN 
" : PRINT 

1010  PRINT  TAB  (5)  "  -CBLUEI-3— -CBROWN  , 2SPACEI KONTEN 
UEBERSICHT":  PRINT 

1020  PRINT  TAB (5)  " C2SPACE , ORANGE, 2SPACEJ {KONTEN 

NAMEN  AUSGEBEN>": PRINT  TAB ( 1 1 ) " - XSPAC 

E, BLUE >2— 3,5-7" 

1030  PRINT  TAB  (45)  11  -CBLUEI— 5— -tBR0WN,2SF'ACE}MQNAT 
SUEBERSICHT" 

1040  PRINT  TAB (5) " <BLUE>-6- {BROWN, 2SPACE1 JAHRES 
UEBERS I CHT ": PR I NT 

1050  PRINT  TAB  (5)  "  {BLUEI-7-  {BROWN  ,2SF'ACE>BUCHUN 
GSPOSTEN  ABFRAGEN": PRINT 
1060  PRINT  TAB(5) “ <GREEN>-0-CBROWN,2SPACE>PROGR 
AMM  BEENDEN" : PRINT 

1070  PRINT  TAB ( 10 ) " {RVSON , RED, SPACE > AUSWAHL  (0- 
7)  -ISPACE ,  RVQFF ,  BROWN  >  " 

1080  GET  X*:  IF  X*<“0"OR  X*>"7"THEN  1080 
1090  :  X=VAL(XT):IF  X=0  GOTO  1200 
1100  -  TF  X< >4  GOTO  1130 

1110  S=6:C=22: GOSUB  830: PRINT" {REDJWERDEN  BE 

I  DEN  UEBRIGEN  FUNKT IO- " 

1120  :  PRINT  TAB (6) "NEN  AUTOMATISCH  AUSGEGEBEN 
" ; : FOR  1=0  TO  2000: NEXT: GOTO  960 
1130  :  ON  X  GOSUB  1310,1750,2510,2890,3240,3580 
,4500 

1140  GOTO  960 

1170  REM  *■*  PROGRAMM  BEENDEN  •** 

1180  REM  ========================= 

1200  GOSUB  4010: GOSUB  760 : PRINT: PRINT: PRINT 
1210  CLOSE  1: CLOSE  2: CLOSE  3 

1220  PR INT "SOLLTEN  SIE  VERSEHENTLICH  DAS  PROGRA 
MM<2SPACE JBEENDET  HABEN,  SO  KOENNEN  ” ; 

1230  PRINT"SIE  ES  MIT" , TAB ( 15) CHR* ( 17) “ {RVSON ,R 
ED , SPACE  >GOTO  960  {SPACE , RVOFF , BROWN! " CHRT ( 
17),, "WIEDER  "; 

1240  PRI NT "STARTEN  ! " : POKE  788,49:REM  STOP  EIN 


1250  S=0:C=13:  GOSUB  B30:SYS  42115-.REM  END  OHNE 
READY 

1270  REM  ***======================•*** 

1280  REM  ===  KONTEN  ANLEGEN  === 

1290  REM  ***======================•*** 


1310  GOSUB  4010: GOSUB  760:REM  GEW. FUNKT. 

1320  PRINT" {BLUEJACHTUNG  !  EINE  EVTL.  BEREITS  A 
NGELEGTE-C2SFACE1DATEI  DIESES  JAHRES  WIRD"  5 
1330  PRINT"  GELOESCHT.  "-.PRINT  CHR*(28) 

1340  PRINT"  {RED1WOLLEN  SIE  DAS  (J/N)  " 

1350  GET  X*:IF  X*<>"J"AND  X*<>"N"THEN  1350 
1360  : IF  XT=“N"THEN  RETURN 

1370  GOSUB  330: IF  ST=-128  OR  R=21  THEN  RETURN 
1380  OPEN  3,8,15, "S: "+JS+ CLOSE  3:AK=0 
1390  OPEN  2,8, 15, "S: KONTEN"+J* 

1400  PRINT  CHRT (147);: GOSUB  760 
1410  PRINT: PRINT"  WIEVIELE  KONTEN  WOLLEN  SIE  AN 
LEGEN" 

1420  PRINT"  I2SPACE , RED , RVSON , SPACE >0 -ISPACE , RVOF 
F, BROWN, 2SPACE>=  KEINE  KONTEN  NEU  ANLEGEN { 
3SPACE>": INPUT" (1-20)  " ; KZ 
1430  :  IF  KZ=0  THEN  CLOSE  1 : CLOSE  2: RETURN 
1440  :  IF  KZ< 1  OR  KZ>20  THEN  PRINT  CHR* (145) CHR 
*(145)CHR*(145) ; : GOTO  1420 
1450  OPEN  1,8,2,  " KONTEN “+JT+"  , L ,  "-t-CHRT-  ( 141 ) 

1460  PRINT  CHRT ( 1 45) ; : ZZ=0: DT (0,0) ="NOCH  KEINE 
BUCHUNGEN" 

1470  S=1:C=4: GOSUB  830: PR INT" <  {RED,RVSON>RETURN 
{RVOFF, BROWN >>  =  KONTEN  ANLEGEN  ABBRECHEN C 


<  1 43  > 

<  1 67  > 
<202> 
<107> 

<  1 50  > 
<081  > 

<  1 63  > 

<  200  > 
<  2 1 0  > 

<179> 

<011  > 
<213> 

<  151  > 
<232> 

<  171  > 
<021  > 
<003> 
<177> 

<  1 99  > 

<  1 45  > 
<164> 


<058  > 


<031  > 


<1S0> 

<  1 30  > 

<  108> 


<139  > 

<  137> 

<  1 03  > 
<083> 

<001> 

<  027  > 

<  181  > 
<160> 
<077> 
<035> 
<097> 
<227> 
<168> 

<036> 


<120> 

<247> 

<036> 

<195> 

<203> 

<216> 

<105> 

<202> 

<053> 

<220> 

<044 > 
<015> 

<  050  > 

<  0 1 9  > 
<030> 

<  1 05  > 

<012> 


<065> 
<051  > 

<  1 18> 
<  130> 

<183> 
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1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1710 

1720 

1730 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

1860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2090 

2110 

2120 

2130 

2140 

2150 

2160 


2SPACE>"  <004 > 

PRINT"  {37SPACE}"  <170> 

F'RINT"  {37SPACE} "  :  REM  36  X  SPACE  <170> 

FOR  1  =  1-  TO  KZ  <215> 

: PRINT"NAME  KONTO  NR . " ; SPC  C 3-LEN ( STR* ( I )  )  ) 

I":";  <216> 

:  INPUT  KN*  <113> 

:  XF  KNf=""THEN  I=KZ:GOTO  1610  <073> 

:  IF  LEN (KN*) >20  THEN  KN*=LEFT*(KN*,20)  <045> 

:  RC*=KN*+LEFT  * ( BL* , 20— LEN  C  KN* ) )  <245> 

:  N*  ( I ) =LEFT * ( RC* , *  2 )  <119> 

:  FOR  T=1  TO  12  <033> 

:  RC*=RC*+STR* ( 0  >  -+-LEFT* ( BL* , 1 0— LEN ( STR* ( 0 

)))  < 133> 

:  NEXT  T:ZZ=ZZ+1  <123> 

:  PRINTttl ,RC*: KN*=" "  <027> 

NEXT  I  <027>. 

CLOSE  1 : CLOSE  2:  CLOSE  3  <068> 

IF  ZZ<KZ  THEN  KZ=ZZ:REM  ABBRUCH  ?  <172> 

FOR  1=1  TO  KZ  <100> 

:  OPEN  3,8,3,J*+N*<I)+" ,S,W"  <135> 

:  PRINTS3 , D* (0,0)  <248> 

:  CLOSE  3  < 153> 

NEXT  I  <097> 

CLOSE  1: CLOSE  2:CLOSE  3: RETURN  <082> 

REM  ============================  <239> 

REM  ***  BUCHEN  ***  <254> 

REM  ============================  <003> 

GOSUB  2900: XF  KN*="E"OR  AK=0  THEN  RETURN  <068> 
IF  ST=-12B  OR  R=21  THEN  RETURN  <092 > 

X=2: GOSUB  4110:LV=1  <120> 

PRINT  CHR*  (147)  "{LIG.  BLUE  1 "  ;  :  GOSUB  760:SU= 

0  < 136> 

PRINT" - "  <084> 

PRINT" {LIG- BLUE1NR. ”;KN;"  — {SPACE , RED}  " ; KN 
* (KN)  <210> 

PRINT" {BROWN > - 

<254> 

PR INT "EINNAHME  ODER  AUSGABE  (E/A)  7"  <172> 

PRINT" - "  <  1 25  > 

PRINT  <208 > 

PRINT"  CBLUE, SPACE }FUNKT ION  VERLASSEN  MITIS 


PACE, RED >F7 {BROWN >!  ";  <210*.  ,,, 

GET  X*:IF  X*<>"E"AND  X*<>"A”THEN  IF  X*OCH 


R*  < 136) GOTO  1860  <198> 

:  IF  X*=CHR* ( 136) AND  LV>1  THEN  LV=LV-1:G0T 
O  2210  <046 > 

:  IF  Xf=CHR*( 136) THEN  CLOSE  1 : CLOSE  2:RETU 
RN  <  080  > 

BA*=X*:REM  BUCHUNGSART  MERKEN  <015> 

S=30:C=6: GOSUB  830: PRINT  BA*: S=1 : C=9: GOSUB 


2180  PRINT :  PRINT"  -JBLUETWEITERE  BUCHUNGEN  AUF  DI 
ESEM  KONTO {6SPACEMJ/N)  ? {BROWN}" 

2190  GET  X*:IF  X*<>"J"AND  XSC^DPTHEN  2190 
2200  : IF  X*="  J "THEN  LV=LV+1 : SU=0: PRINT  CHR* (147 
) ; : GOSUB  760: GOTO  1790 

2210  PRINT  CHR* ( 1 47 ) : PQKE  211,10:POKE  214,11:SY 
S  58732 

2220  PRINT" {LIG.BLUEIOK.  ICH  SPEICHERE  ! " 

2230  RC*=“ " 

2240  RC*=RC*+KN*+LEFT* ( BL* , 20-LEN ( KN* ) ) 

2250  FOR  1=1  TO  12 
2260  :  S*=STR* (S(I) ) 

2270  :  RC*=RC*+S*+LEFT*(BL*,10-LEN(S*> ) 

2280  NEXT  I 

2290  PR I NT#2 , " P " +CHR* ( 2 ) +CHR* ( KN ) +CHR*  < 0 ) +CHR* ( 
1  ) 

2300  PRINT#1,RC* 

2310  CLOSE  1: CLOSE  2: CLOSE  3 
2320  : 

2330  REM  ==  ABSPEICHERN  DER  SEQ. DATEI 
2340  REM  ==  DATEN  ANHAENGEN  <-  "APPEND" 

2350  N*=LEFT$ ( KN* ( KN ) , 1 2 ) 

2360  OPEN  3,8,3, J*+N*+M ,S,A" 

2370  FOR  Y=1  TO  LV 
2380  :  FOR  1=0  TO  2 
2390  :  PR I NT #3 , D* ( Y , I > 

2400  :  NEXT  I 
2410  NEXT  Y 
2420  CLOSE  3 

2430  PRINT  CHR* ( 145) PRINT“ {RED1WEITERE  BUCHUN 
GEN  AUF  ANDEREN  KONTEN {4SPACE > (J/N)  ?{BRÜW 
NT" 

2440  GET  X*: IF  X*<>"J"AND  X*<>"N"THEN  2440 
2450  IF  X*="J"  THEN  1750 
2460  RETURN 

2470  REM  ============================ 

2480  REM  ***  KONTEN-UEBERSICHT  **** 

2490  REM  ============================ 

2500  : 

2510  GOSUB  2900: IF  KN*="E"OR  AK=0  THEN  RETURN 
2520  X=3: GOSUB  4110: IF  ST=-12B  OR  R=21  THEN  RET 
URN 

25  .  ^RINT  CHR* ( 147) GOSUB  760 

254*  PRINT"  {LIG.  BLUE} - 

- {BLUE}" 

2550  PRINT"  NR. " ; KN; ";" {RED>"KN*" {LIG. BLUE}" 
2560  PRINT" - 

2570  PR I NT  SPC  < 2 ) " MONAT " SPC ( 22 > " SALDO " 

2580  PRINT" - 

— {BROWN}" 


830  <086> 

INPUT"MONAT  (1-12) {7SPACE}: {5SPACE , BLUE} " ; 

MO*: M= VAL (MO*)  <058 > 

:  IF  M<1  OR  M>12  THEN  PRINT  CHR* ( 145) ;: GOT 
O  1910  <073> 

PRINT" {BROWNJ - 

<  1 18> 

PR I NT " ALTER  STAND {6SPACE } :  {SPACE , L I G . BLUE ) 

”;S(M) :ZS(M)=S(M)  <146> 

PRINT" {BROWN} - 

<  138> 

PRINT"KQSTENART ,  BETRAG,  TAG {2SPACE} : {BLUE 
}"  < 137> 

INPUT  D* ( LV , 0 ) , SU , BD*  <159> 

PRINT" {BROWN} - 

<  1 68> 

IF  X*="E"THEN  S (M) =S (M) +SU: GOTO  2010  <034> 

S (M) =S (M) —SU  < 1 90  > 

PRINT" NEUER  STAND {6SP ACE } : {SPACE , BLUE } " ; S ( 

M)  <060> 

PRINT" {BROWN} - 

— ": PRINT  < 163> 

PRINT" {LIG. BLUE1ALLES  RICHTIG  (J/N)  7-CBROW 
N}"  <21 1 > 

GET  X*:IF  X*<>"J"AND  X*<>"N"THEN  2040  <221 > 

IF  X*="N"THEN  S(M)=ZS(M) : GOTO  1780  <125> 

IF  LEN (BD*>  =1  THEN  BD*=T i*+BD*  <094> 

: : : REM  *=*=  TAG  ZU  DATUM  AUFBFREITEN 
*=*=  MONAT/TAG/JAHR  <045> 

:  D* ( LV , 2 ) =MQ*+BD*+ J  A*  <098> 

:  IF  BA*=" A"THEN  SU=SU-2*SU  <215> 

:  GOSUB  4370: REM  NACHKOMMASTELLE  PRUEFEN  <047> 
•  IF  LEN ( D* ( L V , 0 ) ) >20  THEN  D* ( L V , 0 ) =LEFT * ( 

D* (LV , 0) , 20)  <127> 

:  D* (LV, 1 ) =SU*  <  232  > 


2590  GS=0 

2600  FOR  1=1  TO  12 

2610  :  PRINT  SPC (2) M* ( I ) ; SPC (22-LEN (STR* ( INT (S C 
I) ) ) ) ) " {LIG. BLUE}"S ( I ) " {BROWN}" 

2620  :  GS=GS+S  < I ) 

2630  NEXT  I 

2640  PRINT" - 

2650  PRINT  SPC  <2) " {RED> " J*; SPC  C3) "  {BROWN }GES AMT 
" SPC ( 1 8-LEN ( STR* (INT (GS) ) ) ) " {BLUE}"GS 
2660  PRINT  SPC < 27)  “========" 

2670  CLOSE  1: CLOSE  2: IF  X*=CHR* ( 133) THEN  PRINT» 
4: CLOSE  4: GOTO  2780 

2680  PR I NT " WE I TERE  UEBERSICHTEN  = {SPACE, RED }F3{ 
BLUE}" 

2690  GOTO  2760 
2700  RETURN 

2730  REM  =*=  UP  AUSDRUCKEN  ?  === 

2740  REM  ============================ 

2760  POKE  214,24:P0KE  211,0:SYS  58732 
2770  PRINT" {2SPACE1AUSDRUCKEN  = {SPACE, RED }F1 {BL 
UE , 3SPACETZUM  MENUE {2SPACE }= {SPACE , REDTF5  € 
BLUE}"; :PRINT  CHR*<145); 

2780  :  GET  X*: IF  X*=CHR* ( 133) GOTO  2820 
2790  :  IF  X*=CHR* ( 134) AND  X=3  GOTO  2510 

2800  : IF  X*=CHR* ( 135)G0TQ  960 
2810  :  GOTO  27S0 

2820  GOSUB  250: IF  ST=-i28  THEN  X*=" ":GOTO  2760 
2830  CLOSE  4: OPEN  4 , 4: PRINT#4,CHR* (27 ) +CHR* ( 108 
) +CHR* ( 10) : CMD  4: IF  X=3  GOTO  2540 
2840  :  IF  X=5  GOTO  3420 
2850  :  IF  X=6  GOTO  3850 

2860  : 


<025> 
<  122> 

<•023 > 

<  192> 

<  1 28  > 

<  1 09  > 
<210> 

<  134> 
<065> 
<157> 

<  187> 

<  184> 

<  178> 
<249> 
<083> 

<  169> 

<  1 30  > 

<  170> 
<102> 
<078> 
<017> 
<023> 
<110> 
<07B> 
<080  > 


<136> 

<  1 15> 
<086> 
<051  > 
<234> 

<  088  > 
<254> 
<007> 
<063> 

<091  > 
<215> 

<057> 

<096> 

<  149> 
<09 1  > 

<062> 

<  164> 
<230> 

<244> 

<253> 

<027> 

<229> 

<076> 

<229> 

<012> 

<230> 

<22B> 

<036> 

<229> 

<  1 19> 
<249> 
<052> 


<001  > 
<052> 
<208> 

<  198> 

<  1 52  > 
<066> 

<236> 

<  121  > 

<  139> 

<  1 13> 

<  124> 
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> 


) 


5 


2880 

2890 

2900 

2910 

2920 

2930 

2940 

2950 

2960 

2970 

2980 

2990 

3000 

3010 

3020 

3030 

3040 

3050 

3060 
3070 
3080 
3090 
31  10 
3120 

3130 

3140 

3150 

3160 

3170 

3180 

3200 

3210 

3220 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 

3360 

3370 

3380 

3390 

3400 

3410 

3420 

3430 

3440 

3450 

3460 


3470 

3480 

3490 

3500 

3510 

3520 

3540 

3550 

3560 

3580 

3590 

3600 

3610 


REM  **  KONTENNAMEN  AUSBEBEN 


<052> 

<144> 

<150> 

<214> 

<070> 

<080> 

<078> 

<05B> 


X=4: PRINT  CHR* (147) ; : GOSUB  760: PRINT 
IF  AKC  >0  THEN  SOSÜB  3120: RETURN 
GOSUB  330: IF  ST=-128  OR  R=21  THEN  RETURN 
OPEN  1 ,8,2, "KONTEN"+J*+"  ,L,  "+CHR*  (141  ) 

OPEN  2,8,15 
:  AK=1 

:  PR I NT#2 , " P " +CHR* ( 2 ) +CHR* C AK ) +CHR* ( 0 ) +CHR 
*(1)  < 134> 

:  RC*=“"  <142> 

:  INPUT*1 ,141  ,RC*:  IF  LEFT *  ( RC* ,  1 )  =  "  j£“ THEN 
RC*=" " : GOTO  3040  <187> 

:  INPUT#2,R  <039> 

:  IF  R=50  THEN  RC*="":GOTO  3040  <209> 

:  KN*  (AK.)  =LEFT*  (RC*,20)  :  LX=LEN  (STR*  (AK)  )  <197> 

:  PRINT  SPCC3-L7.)  AK;  "  -  11 ;  KN#  (AK)  <213> 

:  AK= AK+ 1 : GOT O  2960  <084> 

AK=AK— 1 :  CLOSE  1 :  CLOSE  2:  IF  AKO0  GOTO  3060  <223> 
PRINT  TAB (6) " {RED3DATEI  "J*"  NICHT  GEFUNDE 
N  ! {BROWN}":  FOR  1=0  TO  2000: NEXT: RETURN 
GOSUB  3130: RETURN 


REM  *■*  KONTO 
REM  ============= 


AUSWAEHLEN  ** 


GOSUB  4990 

FOR  1  =  1  TO  AK:  L7.=LEN  (STR*  (I)  ):  PRINT  SPC(3- 
LX) I ; KN* ( I ) : NEXT  I 

PR I NT : PR I NT " ABBRECHEN  M I T  {SPACE , R9S0N , RED , 
SPACE } E {SPACE , RVOFF, BROWN  } " 

I NPUT " KONTONU MMER  (1-20)  :  “ ; KN* 

:  IF  KN*="E"OR  AK=0  THEN  RETURN 
:  KN=VALCKN*) 

:  IF  KN< 1  OR  KN>AK  THEN  PRINT  CHR* ( 145) ; : G 

OTO  3140 

RETURN 

REM  =========================== 

REM  **  MONATSUEBERSICHT  *** 

REM  ============================ 

PRINT  CHR* ( 147) ;: GOSUB  760: PRINT 
INPUT”MONAT {2SPACE}:  ";M 

:  IF  M< 1  OR  M>12  THEN  PRINT  CHR* (145) ; : GOT 
O  3250 


<081  > 
<027> 
<067 > 
<195> 
<089> 

<  149> 

<  1 85  > 

<244> 

<  187> 
<106> 
<18B> 

<238> 

<006> 

<  199> 
<1Q3> 
<219> 

<  1 15> 
<200> 

t<137> 

<  0 1 2  > 

<  175> 
<185> 

<  1B3> 
<044> 


GOSUB  330: IF  ST=-128  OR  R=21  THEN  RETURN 
OPEN  1,8,2, "KONTEN " + J  * +  " , L , " +CHR* (141) 

OPEN  2,8,15 
GS=0: KN=1 

PRINT#2 , "P"+CHR* (2) +CHR* (KN) +CHR* (0) +CHR* ( 

1)  < 194> 

: RC*=" "  <248> 

:  INPUT*1,141,RC*:IF  LEFT*(RC*,  1 )  ="fi"THEN 
RC*=" " : GOTO  3410  <038> 

:  INPUT#2,R  <145> 

:  IF  R=50  THEN  RC*=" " : GOTO  3410  <02B> 

:  KN*(KN)=LEFT*(RC*,20)  <042> 

:  S*(KN)=MID*(RC*, (20+(M-l>*10>  ,10)  <255> 

:  GS=GS+VAL ( S* ( KN ) )  < 1 40  > 

:  KN=KN+1 : GOTO  3320  <217> 

SU=GS: GOSUB  4370  <232> 

PRINT  CHR*  ( 145)  " - {SPACE ,  RED >  "  ;  M*  ( 

M>  ;  "  "  J*  "  {SPACE , BROWN > - “  <078> 

PRINT" {BLUE >NR. {3SPACE>NAME{16SPACE>SALD0"  <209> 
PRINT" {BROWN > - 

<233> 
<032> 


FOR  K=1  TO  KN-1:LX=LEN(STR*(K> ) 

:  PRINT  SPC(3-L7.)K;KN*(K)  ; SPC (6-LEN (STR* ( I 
NT (VAL (S* (K) ) ) ) ) ) ” {LIG. BLUE}“S* (K) " {BROWN} 

NEXT 

PRINT" {BROWN > - 


PRINT  M*(M)"  "J*;SPC (3) "GESAMT  "SPC(7-(L-1 
) ) " {BLUE} "SU* " {BROWN J " 

PRINT  SRC (24) "==========" 

CLOSE  1: CLOSE  2: IF  X*=CHR* ( 133) THEN  PRINT# 
4: CLOSE  4 
GOTO  2760 

REM  ***  ======================  ** 

REM  ***  JAHRESUEBERSICHT  ** 

REM  ***  =====================  ** 

PRINT  CHR* ( 147) GOSUB  760:PRINT 

PR I NT " {2SPACE >S ALDO {2SPACE} 1 2 {2SPACE } MONAT 

E<2SPACE}<  J/  N  )  7":  PRINT:  PRINT 

GET  X*:IF  X*<  >"J"AND  X*<>"N"GOTO  3600 

:  IF  X*="J"THEN  U=1 : 0=12: GOTO  3660 


<110> 

<029> 

<017> 

<  1 25  > 
<045> 

<  195> 
<037> 

<  1 28  > 

<  247 > 
<14B> 
<200> 

<  1 36  > 

<  225  > 
<184> 


3620  PR INT "GEBEN  SIE  BITTE  UNTER-  UND  OBERGRENZ 
E  AN": INPUT" (U,0)  — >  ";U,0 
3630  IF  U<1  OR  U>12  OR  0< 1  OR  0>12  THEN  PRINT  C 
HR* (145) CHR* ( 145) CHR* ( 145) ;  :  GOTO  3620 
3640  IF  U>0  THEN  T=U:U=Q:0=T 

3660  GOSUB  330: IF  ST=-12B  OR  R=21  THEN  RETURN 

3670  PRINT  CHR* ( 147) ; : GDSUB  760: PRINT 

3680  OPEN  1 ,8,2, "KONTEN" +J*+" ,L, " +CHR* (141) 

3690  OPEN  2,8,15 

3700  JS=0: FOR  K=1  TO  AK: MS (K) =0: NEXT: KN=1 
3710  :  PRINT#2, "P"+CHR* (2) +CHR* (KN) +CHR* (0) +CHR 
*(1) 

3720  :  :  I NPUT *1,141, RC* :  I F  LEFT*  (RC*,  1 )  ="3t" THEN 
RC*=" " : GOTO  3840 
3730  :  INPUT#2,R 

3740  :  IF  R=50  THEN  RC*="":SOTO  3840 
3750  :  KN* ( KN ) =LEFT * ( RC* , 20 ) 

3760  :  FOR  M=U  TO  O 
3770  :  S* (KN) ="  " : S=0 

3780  :  S* ( KN ) =M ID*(RC*, ( 20+ (M-l)*10) ,10) 

3790  :  S=VAL(S*CKN) ) 

3800  :  MS (KN) =MS (KN) +S 

3810  :  NEXT  M 

3820  :  JS=JS+MS(KN> 

3830  KN=KN+1 : GOTO  3710 
3840  SU=JS: GOSUB  4370 

3850  PRINT"  {BROWN > - {SPACE, RED >"  J*" 

{BROWN,  SPACE} - " 

3860  PRINT" {BLUE >NR. {2SPACE>NAME{17SPACEJSALD0" 
3870  PRINT"  {BROWNJ - ; - 


3880  FOR  K=1  TO  KN-1 :  L7.=LEN  (STR*  (K)  ) 

3890  : PRINT  SPC (3— LX> K; KN* (K> ; SRC (6-LEN (STR* ( IN 
T  (MS  (K.)  )  )  ))  "  {LIG:BLUE>"MS(K)  "  {BROWNJ" 

3900  NEXT 

3910  PRINT" {BROWN > - 


4 


3920  PRINT" {SPACE, RED>"|J*; "  SALDO  "; 

3930  PRINT  LEFT*(M*(U) ,3) "  -  "LEFT* (M* (0) , 3) SPC 
(9-CL— 1>>"{BLUE>" SU* " {BROWN  > " 

3940  PRINT  SPC (23) "===========" 

3950  CLOSE  1: CLOSE  2: IF  X*=CHR* ( 133) THEN  PRINT# 
,  . CLOSE  4 
960  GOTO  2760 

3980  REM  =========================  ** 

3990  REM  ***  PROGRAMMKOPF  ERSTELLEN  ** 

4000  REM  =======================  ** 

4010  PRINT  CHR* ( 1 47) : 

4020  PRINT  TAB  (4)  "========================== 


4030  PRINT  TAB (4) "H  AUSHALTSBUC  H{3SP 
ACE>"+J* 

4040  PRINT  TAB  (4)  "======================= 


4050  PRINT: RETURN 

4070  REM  ***  ======================  ** 

4080  REM  **  KONTO  EINLESEN  ** 

4090  REM  ***  ======================  ** ' 


4110  GDSUB  330: IF  ST=-128  OR  R=21  THEN  RETURN 
4120  PRINT  CHR* ( 147) ;: GOSUB  760: PRINT: PRI NT 
4130  FR I NT : PR I NT " {L I G . BLUE JKONTO {SP ACE , RED > " ; KN 
*  (KN)  ;  "  {LIG.  BLUE,SPACE>WIRD  EINGELE-SEN  >.  { 
BROWN}" 

4140  OPEN  1 ,8,2, "KONTEN“+J*+" ,L, "+CHR*(141) 

4150  OPEN  2,8,15 

4160  PRINT#2, “P"+CHR* (2) +CHR* (KN) +CHR*(0) +CHR* ( 
1) 

4170  RC*=" " 

41B0  : INPUT*1 , 141 ,RC*:  IF  LEFT* (RC* , 1 )=" fl" THEN  R 
C*=" “ : GOTO  4310 
4190  :  INPUT#2,R 
4200  :  IF  R< >50  THEN  4250 

4210  PRINT: PRINT" JAHRESDATEI  BZW.  KONTO  NICHT  G 
EFUNDEN  !": PRINT 

4220  PR INT "WEITER  MIT {SPACE , RVOFF , LIG. GREEN, SPA 
CE}T ASTE {SPACE , RVOFF , BROWN , SPACE } ! " ;  :WAIT 
1 98 , 1 : POKE  198,0 
4230  CLOSE  1 : CLOSE  2: RETURN 
4240  -. 

4250  KN*=LEFT*(RC*,20) 

4260  GS=0 

4270  FOR  1=1  TO  12 

4280  :  SCI) =V AL (MI D* ( RC* ,20+(I— 1) *10, 10) ) 

4290  :  GS=GS+S(I) 

4300  NEXT  I 
4310  RETURN 


<  1B0> 

<  046  > 
<071  > 

<  045  > 

<  035  > 

<  065  > 
<063> 

<  228  > 

<  132> 

<228> 

<  0 1 4  > 

<  192> 
<167> 

<  192> 

<  200  > 

<  144> 

<  146> 
<227> 
<249> 
<084> 
<081  > 

<  155> 

<218> 

<  129> 

<  153> 
<20B> 

<090> 

<  205  > 

<  193> 
<046> 

<  191  > 
<035> 

<125> 

<223> 

<  176> 
<073> 

<  196> 
<065> 

<  064  > 

<  145> 

<084> 

<066> 

<  148> 

<  020  > 
<  168  > 
<241  > 
<  1B6> 


<022> 

<015> 

<013> 

<014> 

<  009  > 

<  1 13> 

<  220 > 
<202  > 

<1B4> 


<236> 
<059> 
<218> 
<  121  > 
<048> 

<  1 14> 
<21 1  > 
<137> 

<  167> 

<  1 16> 
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4320 

<042> 

4930 

IF  X*="S"THEN  S7.=0:  GOSUB  6590 -.RETURN 

<009  > 

4330 

REM - 

<  175> 

4940 

GOTO  4920 

<  183> 

4340 

REM  =  UP  SUMMENAUSGABE  AUFBEREITEN 

<  108> 

4950 

<  163> 

4350 

REM  =  < PRINT  US I NG >— S I MUL AT ION 

<  153> 

4960 

REM  =*=  UEBERSCHRIFT  /  FUNKTION 

<201  > 

4370 

SU*=STR* (SU) : A=LEN (SU*> : L=0: FOR  T=1  TD  A: I 

4980 

■ 

<193> 

F  MID* (SU*, T , 1 )=“ . "THEN  L=T:T=A 

<209> 

4990 

PRINT  TAB  (8)  "  {ORANGE  JUC.CCCCCCC.C.CCCCCCCCCCC. 

4380 

NEXT  T 

<003> 

.C.C.I." 

<083> 

4390 

:  IF  L=0  THEN  SU*=SU*+" . 00" : L=A+1 : RETURN 

<  179> 

5000 

PRINT  TAB (8) "£  " ; FS* (FU) ; " {2SPACE J£" 

<099> 

4400 

:  IF  A>=L+2  AND  SU<0  THEN  SU=SU-. 00001 : SU* 

5010 

PRINT  TAB  (8)  "  J.CCCCCCC CCCCCCCCC.C.C.CCCC X  {BROW 

=LEFT*(STR*(SU) ,L+2) : RETURN 

<041  > 

NJ" 

<  1 14> 

4410 

:  IF  A>=L+2  AND  SU>0  THEN  SU=SU+. 00001 : SU* 

5020 

PRINT: RETURN 

<016> 

=LEFT* (STR* (SU) , L+2 ) : RETURN 

<048  0 

5030 

s 

<243> 

4420 

:  IF  A=L+1  THEN  SU*=SU*+"0" 

<067  > 

5040 

REM  ============================ 

<254> 

4430 

RETURN 

<237> 

5050 

REM  ==  BUCHUNGEN  AUSGEBEN 

<057> 

4440 

s 

<  1 63  > 

5060 

REM  ============================ 

<0i8> 

4450 

REM  ============================ 

<  174> 

5070 

PRINT  CHR* (147); 

<105> 

4460 

REM  ==  SONDERFUNKT IONEN 

<204> 

5080 

GOSUB  4990: PRINT: PRINT" (BLUE JDRUCKER  ( {RVS 

4470 

REM  ==  SEQ- BUCHUNGSDATEI EN 

<122> 

ON, RED JD {RVOFF, BLUEJ)  ODER  BILDSCHIRM  ( {RV 

4480 

REM  =========================== 

<204> 

SON, RED JB {RVOFF, BLUE J)  ?" 

<151  > 

4490 

: 

<  2 1 3  > 

5090 

GET  A*:AA*=AS:IF  A*<  >"D"AND  ASO-ß-GOTO  50 

4500 

FS* ( 1 ) = " DATE I  LADEN {7SPACE , SH I FT— SPACE J " 

<069> 

90 

<093> 

4510 

FS*  (2)  ="DATEI  SICHERN {5SPACE , SHIFT-SPACE J " 

<248 > 

5100 

GOSUB  6300: IF  KN*="E"OR  AK=0  THEN  RETURN 

<101> 

4520 

FS*  (3) =“ BUCHUNGEN  AUSGEBEN {SH  IFT— SPACEJ '' 

<  121  > 

5110 

IF  ST=— 128  OR  R=21  THEN  RETURN 

<127> 

4530 

FS* ( 4 ) = " BUCHUNGEN  AENDERN  {SPACE , SH I FT-SPAC 

5120 

IF  A*<  >“D"GOTO  5180 

<071  > 

E  J  " 

<055  > 

5130 

GOSUB  250: IF  ST=-128  THEN  ZW=0: RETURN 

<  168> 

4540 

FS* (5)=" BUCHUNGEN  SORTIEREN" 

<096> 

5140 

CLOSE  4: OPEN  4 , 4: PRINT#4,CHR* (27) +CHR* ( 108 

4550 

FS* (0) ="S-FUNKTION  BEENDEN  " 

<234> 

) +CHR* (10) ; 

<213> 

4560 

: 

<027> 

5145 

PR INT #4 , CHR* (10) ; CHR* (14) ; KN* ( KN ) ; " {SHIFT— 

4570 

FB* (0 ) ="KOSTENART {4SPACE > " 

<201  > 

SF ACE  J " ; J  * ; CHR* (10) 

<  180> 

4580 

FB* ( 1 ) =" BETRAG  T7SPACE J " 

<206> 

5150 

PRINT#4, "KOSTENART {18SPACE JBETRAG {7SPACEJD 

4590 

FB* (2) =“ BUCHUNGSMONAT “ 

<002> 

ATUM {3SPACE  J ” 

<089> 

4600 

:  S7.=0 

<  1 57  > 

5160 

F'RINT #4 ,  “ - 

4610 

GOSUB  3990: PRINT 

<073> 

- " : PRINT #4 

<238> 

4620 

PRINT  TAB  CB) " {REDJSONDERFUNKTION" : PRINT  TA 

5170 

IF  2=0  THEN  PRINT4S4:PRINT#4,SPC(9)D*(Z,0)  : 

B  (B)  " - " 

<108> 

PRINT&4:  CLOSE  4:  RETURN 

<  005  > 

4630 

PRINT  TAB (8) " {BLUE JBUCHUNGSPOSTEN  BEARBEIT 

5180 

FU=3: SU=0: ZZ=0 

<100> 

EN": PR INT 

<004> 

5190 

PRINT  CHR* ( 147) ;: GOSUB  4990: PRINT: PRINT  KN 

4640 

PRINT  TAB (5) " {2SPACE , ORANGE , SPACE }< DATEI  L 

*  (KN)  -.PRINT 

<  159> 

ADEN> - >  {SPACE ,  RVSON ,  BLUE  >3  {RVOFF ,  SPACE 

5200 

IF  Z=0  THEN  PRINT  TAB (90) " {RED J "D* (Z , 0) : FO 

>- {SPACE , RVSON  >5 {RVOFF J " 

<  164> 

R  1=0  TO  2000: NEXT: RETURN 

<063> 

4650 

PRINT  TAB (5) " {BLUE , RVSON J2{RV0FF , BROWN , 2SP 

5210 

:  SB* (0)="": SB* (2)="" 

<063  > 

ACE  JDATE I  S I CHERN  “  :  PR  I  NT  ,  -  ;<234>-  < 

51^2 

POKE  21 1,3: POKE  214, 13: SYS  58732: PRINT" {BL 

4660 

PRINT  TAB (5) " {BLUE , RVSON J3{RV0FF , BROWN ,2SP 

UEJDRUECKEN  SIE  BEI  NICHT  RELEVANTEN” 

<  125> 

ACE JBUCHUNSEN  AUSGEBEN" 

<152> 

5230 

PRINT  TAB (3) " FELDERN {2SPACEJ - >{25PACE,R 

4670 

PRINT  TAB (5) " {BLUE , RVSON 14 {RVOFF , BROWN , 2SP 

ED  JRETURN {BROWN  J " 

<225> 

ACE JBUCHUNSEN  AENDERN" 

<086> 

5240 

POKE  214,7: PRINT 

<240> 

4680 

PRINT  TAB (5) " {BLUE, RVSON >5 {RVOFF, BROWN, 2SP 

5250 

:  PRINT  FB*(0) INPUT  SB*C0) 

<202> 

ACE JBUCHUNGEN  SORTIEREN" : PRINT: PRINT 

<  197> 

5260 

:  PRINT  FB*(2) INPUT  SB*(2) 

<216> 

4690 

PRINT  TAB (5) " {GREEN J0 {BROWN , 2SPACEJSQNDERF 

5270 

IF  SB*  (2)0"  "AND  VAL  (SB* (2)  )  <  1  OR  VAL  (SB*  ( 

UNKTION  VERLASSEN" : PRINT: PRINT 

<  183> 

2)) >12  THEN  PRINT  CHR* ( 145) ;: GOTO  5260 

<  209  > 

4700 

: 

<  168> 

5280 

PRINT  CHR* ( 147) ;: GOSUB  4990: PRINT" {RED J "KN 

4710 

PRINT  T AB ( 8 ) " {RED , RVSON , SPACE  JAUSWAHL {2SPA 

* (KN) "  "J*: PRINT" {BROWN J" : IF  FU=4  GOTO  530 

CEJ0-5 {SPACE , RVOFF , BROWN , SPACE J " 

<  085  > 

0 

<163> 

4720 

• 

<  188> 

5290 

IF  SB* (0) =" " AND  SB* (2) =" "AND  A*<  >"D”THEN  F 

4730 

GET  F*:IF  F*="0"THEN  CLOSE  3:G0SUB  4820:RE 

OR  Y=1  TO  Z: GOSUB  5680: NEXT  Y:GOTO  5470 

<254  > 

TURN: REM  ZUM  HAUPTMENUE 

<  132> 

5300 

FOR  Y=1  TO  Z 

<  131  > 

4740 

IF  F*<"2"OR  F*>"5"THFN  4730 

<109> 

5310 

:  SB=0 

<  131  > 

4750 

FU=VAL (F*) 

<  1 09  > 

5320 

:  IF  SB* (0) =" "  THEN  SB=1:G0T0  5340 

<127> 

4760 

:  ON  FU  GOSUB  6300,6560,5070,6880,6030 

<082> 

5330 

:  IF  LEFT* (D* (Y , 0) ,LEN (SB* (0) ) ) =SB*(0)  THE 

4770 

GOTO  4610 

<008> 

N  SB=SB+1 

<  246  > 

4780 

<248> 

5340 

:  IF  SB* (2)=" "THEN  SB=SB+1:G0T0  5380 

<216> 

4800 

REM  PRUEFEN,  OB  AENDERUNGEN  GESICHERT  =*= 

<  161  > 

5360 

:  IF  LEN ( D* ( Y , 2 ) ) =5  AND  LEFT* (D* ( Y,2) , 1 ) =S 

4810 

: 

<022> 

B* (2) THEN  SB=SB+ 1 : GOTO  5380 

<  1 63  > 

4820 

IF  AV=0  AND  S7.=0  THEN  RETURN 

<040> 

5370 

:  IF  LEN(D*(Y,2) ) =6  AND  LEFT* (D* ( Y ,2) , 2) =S 

4830 

PRINT  CHR* (1 47 ): GOSUB  4990: PRINT 

<  173> 

Bä (2) THEN  SB=SB+1 

<033> 

4840 

IF  AV=0  AND  S7.=  l  GOTO  4890 

<102> 

5380 

: IF  FU=4  GOTO  5420 

<  179> 

4850 

PR I NT " D I E  DATE I {SPACE , RED  > " KN* <  Z  W )  " {BROWN , 

5390 

: IF  A*< >"D"GOTO  5410 

<140> 

SF’ACEJWURDE"  ,  "VERAENDERT  ,  ABER  NICHT  GESIC 

5400 

:  IF  SB=2  AND  FU=3  THEN  GQSUB  5860: GOTO  54 

HERT  ! " 

<048> 

40 

<049> 

4860 

PRINT: PRINT“WOLLEN  SIE  SICHERN  ?  - >{2SPA 

5410 

:  IE  SB=2  AND  FU=3  THEN  GOSUB  5680: GOTO  54 

CE , RED , RVSON , SPACE  J  S {SPACE , RVOFF , BLUE  J " 

<  178> 

40 

<059  > 

4870 

PRINT : PRINT" ZURUECK  ZUM  MENUE {2SPACE J?  - 

5420 

:  IF  SB=2  AND  ZZ>0  THEN  GOSUB  7150: GOTO  54 

> {SPACE , RED JRETURN {BLUE  > " : GOSUB  4920 : AV=0 : 

40 

<084> 

RETURN 

<  152> 

5430 

:  IF  SB=2  AND  ZZ<1  THEN  GOSUB  7140 

<208 > 

4880 

• 

<093> 

5440 

NEXT  Y 

<048> 

4890 

PRINT"DATEI {SPACE , RED > "KN* (ZW) " {BROWN, SPAC 

5450 

IF  FU=4  OR  E*="E"THEN  RETURN: REM  ZU  "AENDE 

EJ WURDE" , "SORTIERT ,  ABER  NOCH  NICHT  GESICH 

RUNGEN" 

<220> 

ERT  !  " 

<059> 

5460 

IF  A*="D"THEN  GOSUB  5960: GOTO  5500 

<  040  > 

4900 

PRINT: PRINT"WOLLEN  SIE  SICHERN  ?  - >{2SPA 

5470 

PRINT  TAB  (20)" - PRINT  TAB(10)"{L 

CE , RED , RVSON , SPACE  J  S  COPACE , RVOFF , BLUE J “ : PR 

IG. BLUE J SUMME {BLUE , SP ACE J " ; : GOSUB  4370 

<  1 48  > 

INT 

<  174> 

5480 

PRINT  TAB (26- (L— 1 ) ) SU*; " {BROWN J" 

<07B> 

4910 

PRINT-ZURUECK  ZUM  MENUE {2SPACEJ?  - >{SPAC 

5490 

ZZ=0 

<029> 

E , RED  JRETURN {BLUE  J " 

<220> 

5500 

PR I NT : PR I NT " {RED  J  DATE I ENDE  ERRE ICHT. " 

<103> 

4920 

GET  X*: IF  X*=CHR* (13) THEN  RETURN 

<012> 

5510 

PR INT "SUCHBEGRIFF  NICHT  (NOCHMALS)  GEFUNDE 
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N  PRINT 

<252> 

6130 

GET  X*: IF  X*=CHR*  < 13  >  THEN  RETURN 

<202> 

5520 

PRINT" {BLUE)WEITERE  BUCHUNGEN  SUCHEN  (J/N) 

6140 

IF  X*< " 1 “OR  X*>"3"GOTO  6130 

<233> 

?" 

<  1 14> 

6150 

X=VAL(X*)-1: PRINT 

<105> 

5530 

:  GET  X*:  IF  X*<>"J"  AND  X*<>"N"  GOTO  5530 

<176> 

6160 

PRINT  TAB (4) " ICH  SORTIERE,  BITTE  WARTEN  SI 

5540 

: :  IF  X*=" J "AND  S7.<  >0  GOTO  5180 

<134> 

E  !  "  :  S7.=  1 : REM  KENNZ.  DATEI  SORT. 

<  172> 

5550 

: IF  X*="N"THEN  CLOSE  3: RETURN 

<  138> 

6170 

IF  X=0  THEN  GOSUB  600: GOTO  6190 

<084> 

5560 

PRINT  CHR*  ( 145)  "  {BLUE  /GLEICHES  KONTO {SPACE 

6180 

GOSUB  420 

<095> 

, BROWN >" KN* (KN) {BLUE , SPACE) (J/N)  ?"; 

<167> 

6190 

PRINT  TAB  (4)  "  {BLUE)DATEI  {SPACE, RED)"K.N*  (KN 

5570 

:GET  X*:IF  X*<>"J"AND  X*<>"N"GOTO  5570 

<220> 

)  11  {BLUE, SPACE) WURDE 11  ,TAB(4)  "NACH {SPACE, RED 

5580 

: IF  X*=" J"GQTO  5180 

<185> 

) " , FB* (X ) “ {BLUE,SPACE)SORTIERT  ! " 

<125> 

5590 

KN=0 

<102> 

6200 

PRINT : PRINT  TAB (4) "BUCHUNGSPOSTEN  AUSGEBEN 

5600 

PRINT  CHR* (147) : GOSUB  3110: IF  KN*="E"OR  AK 

(J/N)  ?" 

<217> 

=0  THEN  RETURN 

<  222  > 

6210 

:  GET  X*:  IF  X*<>,,J"AND  X*<>"N"GOTO  6210 

<087  > 

5610 

IF  KN=ZW  THEN  5180:  REM  PRUEFEN, 

<005> 

6220 

: IF  X*=" J"THEN  GOSUB  5180 

<231  > 

5620 

ZW=KN: REM  OB  GLEICHE  KN  WIE 

6230 

:FU=5: GOSUB  4820 

<  191  > 

VORHER 

<  164> 

6240 

RETURN 

<006> 

5630 

CLOSE  3: GOSUB  6330: IF  AA*="D"THEN  A*=AA*:G 

6250 

: 

<1B8> 

OTO  5140 

<015> 

6260 

REM - 

<  199> 

5640 

GOTO  5180 

<  1 1 7  > 

6270 

REM  ==  DATEI  LADEN 

<228> 

5650 

: : REM  =*=*  BUCHUNG  AUF  BILDSCHIRM 

<  194> 

6280 

REM  ============================ 

<219> 

5660 

: : REM  ============================ 

<225> 

6290 

• 

<228) 

5670 

<  1 18> 

6300 

GOSUB  2900: IF  KN*="E"OR  AK=0  THEN  RETURN 

<028? 

5680 

PRINT  D* ( Y , 0 )  ; " {BLUE > " ; 

<038> 

6310 

IF  KN=ZW  THEN  RETURN: REM  PRUEFEN, 

<132? 

5690 

D=VAL (D* ( Y , 1 > ) : SU=SU+D 

<245> 

6320 

IF  S7.O0  OR  AVO0  THEN  GOSUB  4820: S%=0: REM 

5700 

PRINT  TAB (29-LEN (D* (Y , 1 ) > ) ; D* ( Y , 1 > ; " {BROWN 

OB  GLEICHE  KN  WIE  VORHER 

<111> 

>"; 

<08 1  > 

6330 

ZW=KN: N*=LEFT* (KN* (KN) ,12) 

<  123> 

5710 

IF  LEN (D* (Y , 2 ) ) =5  GOTO  5730 

<178> 

6340 

PRINT  CHR* ( 1 47 ) :FU=1: GOSUB  4990 

<  126> 

5720 

PRINT  TAB(31 )  ; M ID* <D* ( Y , 2)  ,3,2)  "  .  "LEFT*  (D* 

6350 

PR I NT : PR I NT : PRINT" {BLUE)DATEI {SPACE, RED) "K 

( Y, 2)  ,2) "RI GHT * ( D* ( Y , 2 ) ,2)  :  GOTO  5740 

<000> 

N* (KN)  "{BLUE)WIRD  GELADEN  !" 

<092> 

5730 

PRINT  TAB (31 ) ;  MID* (D* (Y,2) ,2,2) "LEFT* (D 

6360 

GOSUB  330: IF  ST=-128  OR  R=21  THEN  RETURN 

<  195> 

*<Y,2> ,1)". "RIGHT*(D*(Y,2) ,2) 

<  1 17> 

6370 

OPEN  2,8,15 

<  193> 

5740 

ZZ=ZZ+1 

<  1 19> 

6380 

OPEN  3 , 8 , 3, J *+N*+ " , S , R " 

<058> 

5750 

IF  Y=Z— 1  AND  ZZ>=11  THEN  ZZ=0: GOSUB  5780: G 

6390 

INPUT#2,R: IF  R< >62  GOTO  6410 

<  121  > 

OTO  5770 

<238> 

6400 

: : PR INT "DATEI  NICHT  GEFUNDEN  !": CLOSE  2:CL 

5760 

IF  ZZ >1 4  AND  Y<Z-1  THEN  ZZ=0: GOSUB  5780: RE 

OSE  3: FOR  T=0  TO  3000: NEXT: RETURN 

<  169> 

M  =*=  AUSGEBEN  BIS  15  STUECK 

<126> 

6410 

Z=0: INPUT#3,D*(Z,0) , D* ( Z , 1 ) : IF  ST=64  THEN 

5770 

RETURN 

<046> 

CLOSE  3: CLOSE  2: RETURN 

<093> 

5780 

PRINT  TAB(20)  " - ":PRINT  TAB(10);"{ 

6420 

CLOSE  3 

<000> 

LIG.BLUE)SUMME {BLUE, SPACE)";  :  GOSUB  4370 

<006> 

6430 

OPEN  3,8,3, J*+N*+" ,S,R" 

<109> 

5790 

PRINT  T AB ( 26— ( L- 1 ) ) SU* ; " {BROWN > " 

<  133> 

6440 

I NPUT #3 , D* (0,0) 

<  1 05  >. 

5800 

PRINT : PRINT" CLIG. BLUE) WEITER  MIT {SPACE , RED 

6450 

Z=1 

<136> 

, RVSON , SPACE  >  TASTE {SPACE , RVOFF ) " ; 

<062> 

6460 

: 

<  143> 

5810 

:  WAIT  198, 1 : POKE  198,0 

<098> 

6470, 

6480 

: • TNPUT#3,D*(Z,0) , D* ( Z , 1 ) , D* ( Z , 2 ) 

<094> 

5820 

:: PRINT  CHR* ( 147) GOSUB  4990: PRINT" {RED) " 
KN* (KN) "  "J*" {BROWN)": PRINT 

<163> 

<  163> 

6490 

IF  ST<>64  THEN  Z=Z+l:BOTÜ  6460 

<238> 

5830 

RETURN 

<  1 06  > 

6500 

CLOSE  3: CLOSE  2: RETURN 

<036  > 

5840 

:  REM  **  AUSGABE  AUF  DRUCKER  ** 

<059> 

6510 

: 

<  193> 

5850 

5860 

<101> 

<  159> 

6520 

6530 

<204> 

<  1 45  > 

D=V AL ( D*  < / , 1 ) > : SU=SU+D 

REM  ==  DATEI  SICHERN 

5870 

PRINT#4 ,CHR* (27) "D"; 

<064> 

6540 

REM  ============================ 

<224  > 

5880 

PRINT#4 , CHR* ( 1 ) +CHR* (34— LEN (D* ( Y , 1 ) ) ) +CHR* 

6550 

: 

<233  > 

(39)+CHR*(0) ; 

<001> 

6560 

IF  Z>0  GOTO  6590 

<220  > 

5890 

PR I NT #4 , CHR* ( 9 ) ; D* (Y , 0) ; CHR* ( 9) ;D*(Y, 1) ; 

<  1 24  > 

6570 

POKE  214,23:  POKE  2U,8:SYS  58732:  PRINT"KEI 

5900 

IF  LEN(D*(Y,2) ) =5  GOTO  5930 

<  1 15> 

NE  DATEN  IM  RECHNER" 

<  1B4> 

5910 

PR I NT #4 , CHR* ( 9 ) M I D* ( D* ( Y , 2 ) ,3,2) " . "LEFT* (D 

6580 

: FOR  X=B  TO  2000: NEXT: RETURN 

<  172> 

* ( Y , 2) , 2) " . "RIGHT* (D* (Y,2) ,2) 

<  1 13> 

6590 

PRINT  CHR* (1 47) ; :FU=2: GOSUB  4990 

<  181  > 

5920 

GOTO  5940 

<1  14> 

6600 

PRINT: PRINT“ {BLUE DISKETTE  EINGELEGT  ?":PR 

5930 

PR I NT #4,CHR*(9)MID*(D$(Y,2) ,2,2) ".  "LEFT* ( 

INT 

<  1 79> 

D* (Y , 2) , 1) ". "RIGHT*(D*(Y,2) ,2) 

<131> 

6610 

PRINT" {BROWN)DRUECKEN  SIE  ANSCHLIESSEND {SP 

5940 

RETURN 

<217> 

ACE , RED , RVSON , SPACE > S {SPACE , RVOFF , BLUE ) "  :  P 

5950 

: 

<  143> 

RINT : FOR  1=0  TO  800: NEXT 

<054> 

5960 

PRINT#4,SPC  (25)  " - "  :  PRINT#4,SPC  ( 10 

6620 

PRINT: PRINT" WOLLEN  SIE  DIE  GEAENDERTE  DATE 

) ; " {L I G . BLUE >SUMME {BLUE , SPACE )" ; : GOSUB  437 

I  " , KN* (ZW) "  NICHT  SICHERNI2SPACE)?" 

<  084  > 

0 

<132> 

6630 

PRINT" DANN  MENUE { 3SP ACE ) - > {3SPACE , RED ) RE 

5970 

PR I NT #4 , SRC ( 1 5— ( L- 1 ) ) ; SU*; " {BROWN)" : CLOSE 

TURN {BLUE)" 

<  087> 

4: A*=” ": RETURN 

<064> 

6640 

GET  X*:  IF  X*<>"S,,AND  X*<  >CHR*  ( 13)  GOTO  6640 

<  198  > 

5980 

: 

<  1 73  > 

6650 

:  IF  X*=CHR* (13) THEN  RETURN 

<  183> 

5990 

REM  ============================ 

<184> 

6660 

GOSUB  330: IF  ST=-12B  OR  R=21  THEN  RETURN 

<241  > 

6000 

REM  ==  DATEI  SORTIEREN  == 

<044> 

6670 

PRINT: PRINT"BUCHUNGSDATEI {SPACE , RED) "KN* ( Z 

6010 

REM  ============================ 

<204> 

W) " {BLUE, SPACE )WIRD" , "GESICHERT  ! " 

<  065  > 

6020 

<213> 

6680 

N*=LEFT* (KN* (ZW) ,12) 

<  189> 

6030 

GOSUB  6300: IF  KN*="E"OR  AK=0  THEN  RETURN 

<011> 

6690 

CLOSE  3: OPEN  3,8, 15, "S: "+J*+N* 

<  066  > 

6040 

IF  ST=-128  OR  R=21  THEN  RETURN 

<037> 

6700 

CLOSE  3: OPEN  3,8,3, J*+N*+" ,S,W" 

<142> 

6050 

N=Z:FU=5: PRINT  CHR* ( 1 47) : GOSUB  4990 

<243> 

6710 

:  PR I NT #3 , D* ( 0 , 0 ) 

<  198> 

6060 

IF  Z=0  THEN  PRINT: PRINT  TAB ( 1 0) " {RED) "D* (Z 

6720 

:  FOR  Y=1  TO  Z 

<079> 

,0) : FOR  1=0  TO  2000: NEXT: RETURN 

<105> 

6730 

:  FOR  1=0  TO  2 

<032> 

6070 

FOR  1=0  TO  2 

<079> 

6740 

:  PRINT#3,D*(Y, I ) 

<038> 

6080 

: : PRINT  TAB (8) " {RVSON , RED)" 1+1 " {RVOFF , BROW 

6750 

:  NEXT  I 

<125> 

N , 2SPACE ) " FB* ( I ) 

<047> 

6760 

:  NEXT  Y 

<  151  > 

6090 

NEXT  I  :  PRINT:  S'/.=0 

<019> 

6770 

CLOSE  3 

<095> 

6100 

PRINT  TAB(4) " {BLUE)WONACH  SOLL  SORTIERT  WE 

6780 

PRINT:  AV=0:S7.=0 

<118> 

RDEN  ?" 

<097> 

6790 

PRINT" BUCHUNGSDATE I CSP ACE , RED )"KN*(ZW)"{BL 

6110 

PRINT  TAB(4) "GEBEN  SIE  BITTE  DIE  NUMMER  AN 

UE,SPACE)IST {2SPACE>GESICHERT  ! " : PRINT 

<003> 

! PRINT 

<  181  > 

6800 

PRINT: PRINT"WEITER  MIT {SPACE,RED)TASTE{BLU 

6120 

PRINT  TAB(4) "ZURUECK  ZUM  MENUE  — >{SPACE,R 

E, SP ACE) ! " 

<241  > 

ED)RETURN {BLUE, SPACE) ! " 

<079> 

6810 

WAIT  198, 1:PQKE  198,0 

<020> 
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6B20 

RETURN 

<076> 

7470 

IF  B<>2  THEN  PRINT"  -CBR0WN,2SPACE>"  ;  DS  (A,B) 

<106> 

6B30 

- 

<002> 

7480 

PRINT : PRINT "BITTE  AENDERN  SIE  ! {20SPACE}" : 

6840 

REM  ============================ 

<013> 

AV=1 

<048> 

6850 

REM  ==  BUCHUNGEN  AENDERN 

<251  > 

7490 

C=20:S=0: GOSUB  830 

<  135> 

6860 

REM  ============================ 

<  033  > 

7500 

: 

<  1 63  > 

6870 

■ 

<042> 

7510 

INPUT  DS ( A , B) : PRINT" {2SPACE , RED} "DS ( A, B) : I 

6880 

GOSUB  6300: IF  KNS="EnOR  AK=0  THEN  RETURN 

<096> 

F  LEN ( DS ( A , B ) ) >20  THEN  DS ( A, B) =LEFTS (DS ( A , 

6890 

IF  ST=— 128  OR  R=21  THEN  RETURN 

<  122> 

B) ,20) 

<031  > 

6900 

PRINT  CHRS < 147) :FU=4: GOSUB  4990 

<179> 

7520 

IF  B<>2  GOTO  7590:  REM  DATUM  PRUEFEN 

<  151  > 

6910 

IF  Z=0  THEN  PRINT : PRINT  TAB (9) " CREDJ "DS ( 1 , 

7330 

IF  MIDS(D± CA, 2) ,3, 1)=" . "AND  M IDS ( DS ( A , 2 ) , 6 

0) : FOR  1=0  Tü  2000: NEXT: RETURN 

<  150> 

,1)=". "GOTO  7570 

<  198> 

6920 

ZZ=0: ZS=10: A9=0: PRINT 

<057> 

7540 

IF  MID$(DS(A,2) ,2,1)=". "AND  MIDS (DS ( A , 2) , 4 

6930 

PRINT" IBLUEJWENN  SIE  GEZIELT  BUCHUNGPUSITI 

, 1 ) =" . "THEN  GOSUB  7710: GOTO  7590 

<0 1 2  > 

ONEN  ODER  MONATE  AENDERN  WOLLEN,"; 

<  141  > 

7550 

IF  MIDS(DS(A,2) ,2,1)=". "AND  MIDS (DS ( A , 2) , 5 

6940 

PRINT"  GEBEN  SIE  BITTE" , " ISPACE , RED , RVSON> 

, 1 ) =" . "THEN  GOSUB  7720: GOTO  7590 

<024> 

EIBLUE,RV0FF,2SPACE>EIN. " 

<  108> 

7560 

IF  MIDS(DS(A,2) ,3,1)=". "AND  MIDS (DS ( A , 2) ,5 

6950 

PR I NT : PR I NT " CRED  JRETURN ILIG. BLUE , SPACE  >L I S 

, 1 ) =" . "THEN  GOSUB  7730: GOTO  7590 

<036> 

TET  DIE  DATEI  VOLLSTAENDIB C 1 1SPACE1AUF  !" 

<030> 

7570 

D$(A,2)=MIDS(DS(A,2> , 4 ,2) +LEFTS (DS C A ,2) ,2) 

6960 

GET  ES:IF  ES<  >"E"AND  ESOCHRS  ( 13)  GOTO  6960 

<  19B> 

+RIGHTSCDS (A,2) ,2) 

<221  > 

6970 

IF  ES="E"THEN  GOSUB  5190: GOTO  7060 

<023> 

7580 

<243> 

6980 

; 

<  153> 

7590 

PRINT”  WEITERE  AENDERUNGEN  (J/N)  ?" 

<056> 

6990 

REM  =*=  ALLE  POS.  AUFLISTEN  =*= 

<041  > 

7600 

:  GET  XS:  IF  XSO"J,,AND  XSO"N"THEN  7600 

<236> 

7000 

REM  ========================== 

<  1 13> 

7610 

: : IF  XS— "N"' AND  Y<Z  THEN  PRINT  CHRS(147):G0 

7010 

PRINT  CHRS C 147) ;: GOSUB  4990 

<  162> 

SUB  4990: GOSUB  7780: RETURN 

<  161  > 

7020 

GOSUB  7780 

<234> 

7620 

: IF  XS="N" AND  Y>=Z  AND  AV=1  THEN  GOSUB  659 

7030 

FOR  Y=1  TO  Z 

<076> 

0: RETURN: REM  AEND. SICHERN 

<063> 

7040 

:  GOSUB  7150 

<047> 

7630 

C= 1 9 : S= 1 : GOSUB  830 

<028  > 

7050 

NEXT  Y 

<  128> 

7640 

PRINT" (BLUE , BSPACE5 " 

<241  > 

7060 

PRINT: PRINT" tBLUE >DATEIENDE  ERREICHT  !" 

<  120> 

7650 

PRINT" {39SPACE}": REM  39  X  LEERTASTE 

<  0 1 8  > 

7070 

IF  ES=CHRSC13)THEN  7280 

<083> 

7660 

PRINT" {39SPACE} " 

<230> 

7080 

IF  ZZO0  AND  ES="E"THEN  ES="“:GOTa  7280 

<  131  > 

7670 

C=17:S=0: GOSUB  830 

<065  > 

7090 

: : : FOR  1=1  TO  2000: NEXT 

<074> 

7680 

GOTO  7380 

<  1 2 1  > 

7100 

RETURN 

<101> 

7690 

: 

<098> 

7110 

<027> 

7700 

REM  =*=  DATUM  AUFBEREITEN  MMTTJJ  * 

<010> 

7120 

REM  =*=  AUSGABE  AUF  BILDSCHIRM  == 

<077> 

7710 

DS(A,2)=MIDS(DS(A,2) ,3, 1 )+"0"+LEFTS (DS ( A, 2 

7130 

REM  - - - 

<253> 

) , 1 ) +R I GHT S ( DS ( A , 2 ) ,2) : RETURN 

<077> 

7140 

GOSUB  7780: REM  BEI  E I NZEL— SELEKT . 

<229> 

7720 

DS ( A , 2) =MIDS (DS ( A ,2) ,3 , 2) +"0"+LEFTS (DS (A ,2 

7150 

IF  Y< 1 1  AND  ESO"E"THEN  PRINT  SPCC3-LENCST 

)  ,  1 )  +R I  GHT  S  ( DS  ( A ,  2  )  ,2)  -.RETURN 

<088> 

RSCY)  )  )  "  <RED>"Y"  <BROWN>"DS(Y,0)  "{BLUE}";  :G 

7730 

DS ( A , 2 ) =M IDS(DS(A,2) ,4,1) +LEFT S ( DS ( A , 2 ) ,2) 

OTO  7170 

<  166> 

+R IGHTS (DS (A ,2) ,2) : RETURN 

<069  > 

7160 

PRINT  SPC (4-LEN (STRS (Y) ) ) " CRED> " Y" {BROWN}" 

7740 

<  148> 

DSCY,0) " {BLUE}"; 

<  122> 

7750 

REM  =*=  SPALTEN-BESCHR I FTUNG  =*= 

<003  > 

}" ; 

<  1 90  > 

77  fc 

<  178> 

7180 

IF  LEN ( DS ( Y , 2 ) ) =5  GOTO  7210 

<  1 13> 

7780 

PRINT  TAB (5) " {RED} 1 " ; TAB (26) "2" ; TAB (33) ”3" 

7190 

PRINT  TAB (31 ) ; MID* ( DS ( Y ,2) ,3,2) ". "LEFTS(DS 

: PRINT: RETURN 

<017> 

(Y,2) ,2) "RIGHTS <DS(Y, 2) ,2) 

<049> 

7790 

: 

<19B> 

7200 

GOTO  7220 

<  1 12> 

7800 

REM  ============================== 

<075> 

7210 

PRINT  TAB(31) ; MIDS (DS (Y,2) ,2,2) ".  "LEFTS(D 

7810 

REM  **  DAT AS  FUER  INPUT-MOD IFIKAT. 

<  165> 

S(Y,2) ,1) ". "RIGHTS (DS(Y, 2) ,2) 

<067> 

7820 

REM  ============================== 

<095> 

7220 

ZZ=ZZ+1 

<069> 

7830 

FOR  1=828  TO  922 

<019> 

7230 

: IF  ZZ=ZS  AND  ZZ<Z  THEN  ZS=ZS+10: GOSUB  728 

7840 

READ  X : POKE  I , X: S=S+X: NEXT  I 

<212> 

0 

<248> 

7850 

DATA  169,71 , 160,3,141 ,8,3,140,9,3,96,32 

<215> 

7240 

RETURN 

<242> 

7860 

DATA  115,0,201,133,240,6,32,121,0,76,231,1 

7250 

s 

<  1 68  > 

67 

<  192> 

7260 

REM  =*=  AENDERUNGSABFRAGE  =*= 

<035> 

7870 

DATA  32,115,0,201,172,240,6,32,191,171,76, 

7270 

: 

<  188> 

174 

<010> 

7280 

PRINT :  PRINT"  -CRED1AENDERUNGEN  (J/N)  ?" 

<  2 1 9  > 

7880 

DATA  167,32,155,183,32,30,225,32,253, 174,3 

7290 

:  GET  XS: IF  XSO"J"AND  X$<>"N“  THEN  7290 

<  186> 

2,  158 

<  134> 

7300 

:  IF  XS="N"  AND  Y<Z  THEN  PRINT  CHRS (  147 )  :  GO 

7890 

DATA  183, 138,72,32,253, 174,32,139, 176,133, 

SUB  4990: GOSUB  7780: RETURN 

<04B> 

73,132 

<202> 

7310 

:  IF  XS="N"AND  Y>=Z  AND  AV=1  THEN  GOSUB  65 

7900 

DATA  74,32,163,182,104,32,117,180,160,2,18 

90: RETURN: REM  AEND. SICHERN 

<008> 

5,97 

<  105> 

7320 

:  IF  XS="N" AND  Y>=Z  AND  AV=0  THEN  RETURN: R 

7910 

DATA  0,145,73, 136,16,248,200,32, 18,225,145 

EM  KEINE  AENDERUNG — >MENUE 

<059> 

,98 

<066> 

7330 

:  PR  INT  CHRS  ( 1 45 )  "  I39SP ACE  } " : REM  39  X  LEERT 

7920 

DATA  200,196,97,208,246,32,204,255,76,174, 

<  190> 

167 

<095> 

7340 

<002> 

7930 

IF  SOI  1096  THEN  PRINT  "FEHLER  IN  DATAS  !  : 

7350 

REM  =*=  AENDERUNG  =*= 

<066> 

END 

<149> 

7360 

REM  ========================= 

<096> 

7940 

SYS  828 -.RETURN 

<043> 

7370 

C=17:S=0: GOSUB  B30 

<020> 

7945 

REM  ============================== 

<221  > 

7380 

PRINT" CL IG. BLUE 1GEBEN  SIE  BITTE  DIE  ZU  AEN 

7950 

REM  *  SWAP  -  FUNKTION  SIMULIEREN  * 

<  227  > 

DERNDE  POS I  —  -C2SP ACE >T I ON  EIN  (ZEILE,  SPALT 

7960 

REM  ============================== 

<236> 

E>  !  " 

<  134  > 

7970 

REM  SYNTAX: SYS715 (STRING1 ,STRING2> 

<027> 

7390 

: INPUT  A,B: B=B-1 : IF  B< >0  AND  B< >2  GOTO  737 

7980 

REM  ============================== 

<000> 

0 

<048> 

7990 

DATA  32,250,174,32, 158,173,32,143, 173,165, 

7400 

:  IF  A<1  OR  A>Y  GOTO  7370 

<067> 

100,133,247,165,101 , 133 

<096> 

7410 

:  IF  Y— 1=Z  AND  A>Y— 1  OR  B>2  OR  B<0  THEN  C= 

8000 

DATA  248,32,253, 174,32,158,173,32, 143,173, 

17: S=0: GOSUB  030; GOTO  7380 

<254  > 

160,0, 177,247,133,249 

<030> 

7420 

:  IF  B<>2  GOTO  7470 

<  0 1 6  > 

8010 

DATA  177,100,145,247,165,249,145,100,200,1 

7430 

:  IF  LEN(DS (A,2) ) =5  GOTO  7460 

<  149> 

92,3,208,239,32,247,174,96 

<031  > 

7440 

:  PRINT  TAB  (2)  ;MIDS  (DS(A,2)  ,3,2)  “  .  "LEFTSID 

8030 

SA=715: S£=SA+48: FOR  I=SA  TO  SErREAD  X:POKE 

S(A,2> ,2) ". "RIGHTS ( DS ( A ,2) ,2) 

<236> 

I , X : CS=CS+X : NEXT 

<  161  > 

7450 

:  GOTO  7400 

<205  > 

8040 

IF  CSO-7314  THFN  PR  TNT  "FEHLER  IN  DATA  '  S"  :  E 

7460 

:  PRINT  TAB (2) ; MIDS (DS (A,2) ,2,2)“.  "LEFTS ( 

ND 

<250  > 

DSCA,2) ,1) " . "RIGHTS (DS(A, 2) ,2) 

<254 > 

8050 

RETURN 

<031  > 

Listing  1.  Das  Haushaltsbuch  (Schluß) 
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HYPRA-ASS  —  Ein  Assembler 
der  Spitzenklasse 

Machen  Sie  es  wie  die  Profis.  Schreiben  Sie  Programme  in  Maschinen¬ 
sprache.  Dieser  leistungsstarke  Makro-Assembler  macht  es  möglich. 


HYPRA-ASS  ist  ein  rein  in  Maschinenesprache  geschriebe¬ 
ner  Drei-Pass-Makroassembler  mit  integriertem  Editor  für  den 
C  64  mit  Floppy  1541.  Er  wird  mit  LOAD  ”HYPRA-ASS’',8  gela¬ 
den  und  durch  RUN  gestartet.  Nach  dem  Start  meldet  sich 
HYPRA-ASS  mit  »break  in  0«  und  »ready«.  Alle  Basic-Befehle 
sind  nach  dem  Start  noch  zu  verwenden,  bis  auf  die  Befehle 
LET  und  FOR,  die  Variable  anlegen.  Der  Befehl  RUN  dient  jetzt 
zum  Starten  der  Assemblierung. 

Der  Quelltext 

Der  Quelltext  wird  vom  HYPRA-ASS-Editor  in  Basic-Pro- 
grammzeilen  abgelegt.  Soweit  wie  möglich  werden  unnötige 
Blanks  dabei  eleminiert.  Für  die  einzelnen  Quelltextzeilen  gel¬ 
ten  die  folgenden  Vereinbarungen: 

1.  Bei  der  Eingabe  einer  Zeile  wird  hinter  der  Zeilennummer  ein 
Minuszeichen  eingegeben. 

2.  Jede  Zeile  enthält  höchstens  einen  Assemblerbefehl. 

3.  Vor  einem  Assemblerbefehl  darf  in  derselben  Zeile  höchstens  ein 
Label  stehen. 

4.  Labei  beginnen  direkt  hinter  dem  Minuszeichen. 

5.  Vor  jedem  Assemblerbefehl  steht  mindestens  ein  Blank. 

6.  Label  und  Assemblerbefehl  werden  durch  mindestens  ein  Blank 
voneinander  getrennt. 

7.  Ein  Label  darf  nicht  allein  in  einer  Zeile  stehen. 

8.  Kommentar  wird  durch  ein  Semikolon  vom  Rest  der  Zeile 
getrennt. 

9.  Reine  Kommentarzeilen  müssen  als  erstes  Zeichen  hinter  dem 
Minuszeichen  ein  Semikolon  haben. 

10.  Pseudo-Ops  (.ba,  .eq...)  können  direkt  hinter  dem  Minuszeichen 
beginnen. 

Beispiele: 

100  -.ba$C000 

110  -initialisierung 

120  •;  reine  Kommentarzeile 

130  -  Ida  $14;  Kommentar  hinter  einem  Befehl 

140  -marke  Idx  $15;  mit  Label  davor 

Zur  bequemeren  Eingabe  und  Bearbeitung  des  Quelltextes 
stellt  HYPRA-ASS  im  Editor  insgesamt  25  Befehle  zur  Verfü¬ 
gung  (Bild  1). 

Rechnungen  im  Quelltext 

HYPRA-ASS  erlaubt  die  vier  Grundrechenarten  plus  Poten¬ 
zierung,  die  logischen  Operationen  NOT,  AND  und  OR,  die 
Vergleiche  »gleich«,  »kleiner«  und  »größer«,  sowie  den  Einsatz 
der  Funktionen  <  (...)  und  >  (...),  die  das  Low-  beziehungswei¬ 
se  Highbyte  eines  Argumentes  liefern.  Die  logischen  Operato¬ 
ren  und  die  Vergleiche  werden  wie  folgt  abgekürzt: 

!n!  =  not  !a!  =  and  !o!  =  or  !  =  !  =  gleich 
!  < !  =  kleiner  als  !  > !  =  größer  als 

Das  Ergebnis  eines  Vergleiches  ist  —1,  falls  wahr,  0,  falls 
nicht  wahr:  (1!  =  !2)  =  0  (1!  =  !1)=— 1 

Auch  die  NOT-Verknüpfung  arbeitet  wie  in  Basic:  !n!1  =  —2. 
Das  Argument  in  den  Low-/Highbyte-Funktionen  muß  im  Be¬ 
reich  0  <  Argument  <65535  liegen. 

Außer  Dezimalzahlen  sind  Hex-Zahlen  erlaubt,  die  durch  ein 
vorangestelltes  Dollarzeichen  kenntlich  gemacht  werden: 
$C000  =  49152  $10  =16  $a  =  10... 

Die  Hexzahlen  können  auch  in  den  Basic- Befehlen  verwen¬ 
det  werden. 
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HYPRA-ASS-Variable  (Label) 

Der  Wert  einer  HYPRA-ASS-Variablen  kann  zwischen  0  und 
$FFFF  liegen.  Variablennamen  können  beliebig  lang  sein,  wo¬ 
bei  das  erste  Zeichen  des  Variablennamens  ein  Buchstabe 
sein  muß.  Weitere  Zeichen  können  Buchstaben,  Ziffern  oder 
das  Hochkomma  sein.  Alle  Zeichen  des  Namens  sind  signifi¬ 
kant. 

Im  Zusammenhang  mit  der  Verwendung  von  Makros  muß 
zwischen  globalen  und  lokalen  Variablen  unterschieden  wer¬ 
den.  Jede  Variable  erhält  beim  Anlegen  eine  sogenannte  Ord- 
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/a  100,10  Automatische  Zeilennumerierung.  Hier  mit  der  Start¬ 
nummer  100  und  der  Schrittweite  10.  • 

Die  automatische  Zeilennumerierung  wird  ausge¬ 
schaltet,  indem  man  direkt  hinter  dem  ausgegebenen 
Minuszeichen  RETURN  eingibt. 

/o  Re-New  eines  Quelltextes,  der  mit  NEW  gelöscht 

wurde,  falls  der  Text  nicht  anderweitig  zerstört  wurde, 
d  ;  /d  100  ;  d  —100  ;  /d  100—  ;  /d  100  bis  200 

Löschen  von  Zeilen  und  Zeilenbereichen.  Auch  für 
das  Löschen  einzelner  Zeilen  sollte  man  den  /d- 
Befehl  verwenden,  da  man  das  Minuszeichen  hinter 
der  Zeilennummer  doch  immer  wieder  vergißt. 

/e  ;  /e  100  ;  je  —100  ;  /e  100—  ;  /e  100  bis  200 

Formatiertes  Listen  von  Zeilen  und  Zeilenbereichen. 
Label,  Assembler-Befehle  werden  gemäß  den  Tabula¬ 
toren  übersichtlich  untereinander  geschrieben. 

/t0,13  ;  /t  1,24  ;  /t2,0  ;  /t3,10 

setzt  die  Tabulatoren  TO,  TI,  T2,  T3 
TO  =  Tabulator  für  Assemblerbefehle 
TI  =  Tabulator  für  den  Kommentar  bei  der  formatier¬ 
ten  Ausgabe 

T2  =  Tabulator  für  die  Anzahl  der  Blanks,  die  am  An¬ 
fang  einer  Ausgabezeile  ausgegeben  werden 
T3=  Tabulator  für  die  Symboltabelle 
Verlassen  des  Assemblers.  Beim  Verlassen  des  Pro¬ 
gramms  wird  ein  Reset  durchgeführt. 

Setzen  eines  Arbeitsbereichs  (Page).  Hier  Bereich  1 
von  Zeile  100  bis  200.  beide  einschließlich.  Bis  zu 
30  solcher  Arbeitsbereiche  sind  erlaubt.  Die  Parame¬ 
ter  der  Arbeitsbereiche  werden  im  Kassetten puffer 
abgelegt. 

Formatiertes  Listen  der  Page. 

Neu  Durchnumerieren  einer  Page  mit  Startnummer 
und  Schrittweite. 

Suchen  einer  Zeichenkette  in  einer  Page.  Dabei  sind 
im  String  Fragezeichen  als  Joker  erlaubt.  Das  Frage¬ 
zeichen  ersetzt  ein  beliebiges  Zeichen.  Zu  beachten 
ist  jedoch,  daß  im  Quelltext  unnötige  Blanks  entfernt 
wurden,  wie  ein  Vergleich  mit  den  Befehlen  /e  und 
LIST  zeigt, 
i  1, "String  T',  ’string2” 

Ersetzen  von  Zeichenketten.  String  2  darf  nicht  leer 
sein.  Überall  in  der  Page  wird  die  Zeichenkette  aus 
String  2  durch  die  aus  Stringl  ersetzt.  Auch  beim  Er¬ 
setzen  ist  in  String  2  das  Fragezeichen  als  Joker  er¬ 
laubt.  Da  String  1  leer  sein  darf,  können  mit  diesem 
Befehl  auch  Zeichenketten  gelöscht  werden. 

/u  9000  Setzen  des  Quelltextstartes  (Programmstartes).  Nor¬ 

malerweise  ist  als  Startwert  die  Adresse  7000  ein- 


/x 

p  1,100,200 

/ziffer(n) 

/n  1,100,10 

/f  1  "string" 


nungszahl,  die  tatsächlich  angibt,  im  wievielten  Makroaufruf 
das  Anlegen  stattfand.  Befinde  ich  mich  in  gar  keinem  Makro, 
ist  die  Ordnungszahl  entsprechend  Null. 

Variable  mit  unterschiedlicher  Ordnungszahl  sind  trotz  glei¬ 
chen  Namens  nicht  gleich.  Man  kann  also  davon  sprechen, 
daß  Variable  gleicher  Ordnungszahl  lokal  sind. 

Die  Konstruktion  mittels  Ordnungszahlen  dient  dazu,  Fehler 
durch  doppelte  Benutzung  von  Labein  bei  mehrmaligem  Aufruf 
von  Makros  zu  verhindern,  indem  Makros  bei  jedem  Aufruf  so¬ 
zusagen  einen  komplett  neuen  Satz  von  Labein  erhalten. 

Andererseits  sind  aus  einem  Makro  »herausgesehen«  alle 
Variablen  mit  anderer  Ordnungszahl  als  im  Makro  selbst  »un¬ 
sichtbar«.  Um  aber  bequem  Makros  in  Makros  aufrufen  und 
bequem  Label  verwenden  zu  können,  die  in  mehreren  Makros 
benutzt  werden  sollen  (etwa  Betriebssystemroutinen),  gibt  es 
die  globalen  Variablen. 

Globale  Variable  sind,  wie  der  Name  schon  verrät,  im  Gegen¬ 
satz  zu  den  lokalen  Variablen  unabhängig  von  der  Ordnungs¬ 
zahl  überall  definiert. 

Alle  Makronamen  sind  per  Definition  global. 


gestellt.  Durch  Hochlegen  des  Startes  kann  man  zum 
Beispiel  einen  Monitor  in  dem  nun  freien  Bereich  un¬ 
terbringen. 

/b  Anzeige  der  aktuellen  Speicherkonfiguration.  Es  wird 

angezeigt: 

a)  der  normale  Quelltextstart  7000  als  Merkhilfe 

b)  der  aktuelle  Quelltextstart 

c)  das  Quelltextende 

d)  die  Anzahl  der  noch  verbleibenden  Bytes  für  den 
Quelltext 

/r’name"  ;  /s”name”  ;  /v"name”  ;  /rrfname” 

Kurzform  der  Befehle  LOAD,  SAVE,  VERIFY  und 
MERGE 

/g  8  Die  zugehörige  Gerätenummer  kann  mit  diesem  Be¬ 

fehl  eingestellt  werden.  Voreingestellt  ist  das  Gerät 
8. 

Zur  Unterstützung  des  Umgangs  mit  dem  Floppy- Laufwerk  1541  sind 
drei  Befehle  implementiert: 

/i  —  Lesen  des  Inhaltsverzeichnisses  von  Floppy  ohne 

Verlust  des  geschriebenen  Quelltextes 
/k  —  Lesen  des  Fehlerkanals 

/e  —  Übermittlung  von  Befehlen  an  die  Floopy 

Diese  drei  Befehle  entsprechen  denen  des  DOS  5.1. 

Auch  zur  Farbgebung  des  Bildschirms  sind  zwei  Befehle  vorhan¬ 
den,  die  die  Hintergrund-  und  die  Rahmenfarbe  setzen. 

/ch  0  —  Setzen  der  Hintergrundfarbe 

/er  0  —  Setzen  der  Rahmenfarbe 

Nach  erfolgter  Assemblierung  kann  nun  die  erzeugte  Symbolta¬ 
belle  mit  zwei  Befehlen  ausgegeben  werden: 

/!  —  Ausgabe  in  unsortierter  Form 

/!!  —  Ausgabe  sortiert 

Es  werden  nur  Label  ausgegeben,  die  entweder  global 
oder  von  der  Ordnung  Null  sind. 

Beide  Dumps  können  mit  der  CTRL-Taste  verlangsamt 
und  mit  der  STOP-Taste  angehalten  werden. 

Mit  OPEN...,  CMD...  können  die  Dumps  an  andere  Geräte 
gesendet  werden. 

Als  Ergänzung  zum  Basic-Befehl  PRINT,  der  aufgrund 
der  Torkenbildung  nicht  alle  Labelnamen  verarbeiten  kann, 

?  kann  der  Befehl  —  verwendet  werden. 

Basic-Funktionen  wie  PEEK  sind  nur  über  den  PRINT- 
Befehl  erreichbar.  Die  Funktionen  <  (...)  und  >  (...)  sind  au¬ 
ßerhalb  des  Quelltextes  nur  durch  —  zu  verwenden. 
Mit  dem  - — Befehl  kann  genau  wie  im  Quelltext  gerechnet 
werden. 

Bild  1.  Die  Editorbefehle 


Alle  Variablen  sind  bei  HYPRA-ASS  redefinierbar  gehalten, 
das  heißt  alle  Variablen  können  durch  eine  Wertzuweisung  je¬ 
derzeit  verändert  werden. 

Eine  dopelte  Benutzung  von  Labein  vor  Assemblerbefehlen 
wird  jedoch  durch  einen  »Label  twice«-Error(Bild  2)  geahndet, 
da  dies  zu  einem  falschen  Ergebnis  der  Assemblierung  führen 
würde. 

Die  Makros  von  HYPRA-ASS 

Makros  sind  meist  kürzere  Befehlsfolgen,  die  im  Quelltext 
häufiger  Vorkommen,  und  deshalb  unter  einem  Makro  zusam¬ 
mengefaßt  werden.  Zu  jedem  Makro  gehört  ein  Makroname, 
mit  dem  es  aufgerufen  werden  kann.  An  jedes  HYPRA-ASS- 
Makro  können  beliebig  viele  Parameter  übergeben  werden, 
deren  aktueller  Wert  dann  bei  der  Assemblierung  im  Makro 
eingesetzt  wird.  Makros  können  bei  HYPRA-ASS  an  beliebiger 
Stelle  im  Quelltext  definiert  werden.  Alle  Makronamen  sind 
global,  alle  Parameter  und  makrointernen  Label  sind  lokal.  Das 
heißt  verschiedene  Makros  können  durchaus  Label  bezie¬ 
hungsweise  Parameter  gleichen  Namens  verwenden. 

Ein  Beispiel  für  ein  einfaches  Makro: 

Es  wird  immer  wieder  die  Befehlsfolge  benötigt,  Akkumula¬ 
tor  und  X-Register  mit  dem  Inhalt  zweier  aufeinanderfolgender 
Speicherzellen  zu  laden.  Ein  Makro  dazu  könnte  folgenderma¬ 
ßen  aussehen: 

100  -.ma  Idax  (adresse) 

110  -  Ida  adresse 

120  -  ldxadresse+1 

130  -.rt 

Der  .ma-Pseudobefehl  wird  gefolgt  von  einem  Variablenna¬ 
men,  '  n  Makronamen,  und  einer  Parameterliste  in  runden 
Klammern,  falls  Parameter  vorhanden  sind.  Hier  ist  es  ein  Para¬ 
meter,  die  Adresse  der  Speicherzelle,  die  in  den  Akku  soll. 
Sind  mehrere  Parameter  vorhanden,  werden  sie  durch  Kom¬ 
mata  getrennt.  In  die  Parameter  setzt  der  Assembler  bei  jedem 
Aufruf  den  aktuellen  Wert,  der  im  Aufruf  steht.  Rufe  ich  also 
Idax  (2)  auf,  so  entsteht  bei  der  Assemblierung  des  Makro  die 
Folge  Ida  2,  Idx3,  entsprechend  führt  der  Aufruf  mit  Idax  (label) 
zu  Ida  label,  Idx  label +1. 

Die  Parameterliste  darf  in  der  Definitionszeile  eines  Makro 
nur  aus  einer  Folge  von  Variablennamen  bestehen,  während 
im  Aufruf  als  aktuelle  Parameter  beliebige  Ausdrücke  erlaubt 
sind.  Hinter  der  Definitionszeile  mit  dem  .ma-Pseudo  folgt 
dann  der  eigentliche  Makroinhalt,  das  heißt  das,  was  bei  einem 
Aufruf  des  Makro  assembliert  werden  soll. 

Natürlich  sind  hier  nicht  nur  einfache  Befehle  wie  im  Beispiel 
gestattet.  Genausogut  können  im  Makro  Verzweigungen  und 
Sprünge  ausgeführt  werden,  es  kann  bedingt  assembliert  wer¬ 
den,  und  weitere  Makros  können  aufgerufen  werden.  Für  die 
Schachtelung  von  Makros  besteht  keine  Grenze  außer  der 
Fassungskapazität  des  Prozessorstacks. 

Als  Beispiel  —  wird  ein  Makro  mit  zehn  internen  Labein  100 
mal  aufgerufen,  ergibt  sich  schon  für  die  dadurch  erzeugten 
lokalen  Label  ein  Platzbedarf  von  genau  7  000  Byte. 

Sollte  irgendwann  der  Fall  eintreten,  daß  Label  und  Quelltext 
zusammen  nicht  mehr  ins  RAM  passen,  erhalten  Sie  den  »too 
many  labels«-Error  (Bild  2).  Dies  ist  allerdings  mehr  ein  theore¬ 
tischer  Fall,  denn  auch  bei  der  Assemblierung  von  HYPRA- 
ASS  selbst  wurden  trotz  extensiver  Benutzung  von  Labels 
nicht  einmal  500  gebraucht.  Sie  können  aber  davon  ausge¬ 
hen,  daß  Ihnen  immer  mindestens  Platz  für  1  170  Label  zur 
Verfügung  steht  —  in  den  allermeisten  Fällen  sogar  erheblich 
mehr. 

Selbstaufrufe  von  Makros  sind  auch  nicht  verboten.  Inwie¬ 
weit  eine  solche  Konstruktion  überhaupt  sinnvoll  sein  kann, 
bleibt  jedem  selbst  zu  prüfen. 
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Zurück  zur  Makrodefiniton:  Jede  Makrodefinition  muß  unbe¬ 
dingt  mit  dem  Pseudo  .rt  (return)  abgeschlossen  sein.  Trifft  der 
Assembler  bei  der  Abarbeitung  eines  Makro  auf  .rt,  so  heißt 
das  für  ihn,  die  Assemblierung  hinter  dem  Aufruf  fortzusetzen. 
Vor  der  .ma  und  .rt-Anweisung  dürfen  in  derselben  Zeile  keine 
Label  stehen.  Die  Makrodefinition  selbst  wird  in  Pass  1  und 
Pass  2  überlesen.  Es  zählen  also  nur  die  Makroaufrufe  bei  der 
Assemblierung. 

Der  Aufruf  eines  Makro  erfolgt  durch  den  Pseudobefehl .... 
gefolgt  vom  Makronamen  und  der  aktuellen  Parameterliste  in 
runden  Klammern. 

Wertzuweisung  an  Label 

Zwei  Pseudobefehle  stehen  zur  Verfügung,  um  Label  einen 
Wert  zuzuweisen: 

.eq  —  weist  einem  Label  einen  Wert  zu,  ohne  die  Ordnungszahl 
des  Labels  dabei  zu  verändern. 

.gl  —  erklärt  gleichzeitig  das  Label  als  global. 

Beide  Pseudos  werden  der  eigentlichen  Wertzuweisung 
vorangestellt,  so  wie  LET  in  Basic: 

100  -.eq  marke  =  $FFC0 
110  -.gl  label  =  $200 


Zusätzlich  zu  den  Fehlermedlungen,  die  von  Interpreter¬ 
routinen  wie  »illegal  quantity«  oder  »syntax«  stammen,  gibt 
HYPRA-ASS  folgende  Meldungen  aus: 

1.  can’t  number  term  —  ein  Ausdruck  kann  von  HYPRA- 
ASS  nicht  berechnet  werden.  Möglicher  Grund  kann  die  fal¬ 
sche  Abkürzung  eines  Operators  sein. 

2.  end  of  line  expected  —  bei  der  Abarbeitung  einer  Zeile 
wurde  statt  des  Zeilenendes  etwas  anderes  gefunden. 

3.  no  mnemonic  —  ein  Mnemonic  kann  nicht  identifiziert 
werden. 

4.  unknown  pseudo  —  ein  Pseudo- Op  wurde  falsch  abge¬ 
kürzt. 

5.  illegal  register  —  ein  Assemblerbefehl  existiert  in  der 
gewählten  Adressierungsart  nicht  mit  dem  gewählten  Regi¬ 
ster. 

6.  wrong  adress  —  ein  Assemblerbefehl  existiert  nicht  in 
der  gewählten  Adressierungsart. 

7.  illegal  label  —  das  erste  Zeichen  eines  Labels  war  kein 
Buchstabe. 

8.  unknown  label  —  in  Pass  2  wurde  ein  unbekannter  La¬ 
belname  entdeckt 

9.  branch  too  far  —  eine  Verzweigung  führt  über  eine  zu 
große  Distanz. 

10.  label  declared  twice  —  ein  Labelname  wurde  zweimal 
benutzt. 

11.  too  many  labels  —  Label  und  Quelltext  passen  zusam¬ 
men  nicht  mehr  in  den  Speicher. 

12.  no  macro  to  close  —  die  Anzahl  der  .ma-Anweisungen 
stimmt  nicht  mit  der  Anzahl  der  .rt-Anweisungen  überein. 

13.  parameter  —  im  Makroaufruf  stimmt  die  Parameterliste 
nicht  mit  der  Parameterliste  der  Definition  überein. 

14.  return  —  es  liegt  keine  Rückkehradresse  auf  dem 
Stack,  als  eine  .rt-Anweisung  ausgeführt  werden  sollte. 

Hinzuweisen  ist  noch  auf  eine  einfache  Möglichkeit, 
den  »label  twice-error«  zu  vermeiden: 

Legt  man  eine  Makrodefinition  um  einen  beliebigen  Block 
des  Quelltextes,  so  sind  alle  Label  in  dem  Block  automa¬ 
tisch  lokal.  Auf  diese  Weise  kann  schon  vorhandener  Quell¬ 
text  in  neuen  eingefügt  werden,  ohne  daß  man  sich  um 
doppelt  verwendete  Labelnamen  kümmern  muß. 

Bild  2.  Fehlermeldungen  von  HYPRA-ASS 


Bei  der  Wertzuweisung  an  Label  ist  immer  der  Bereich  ein¬ 
zuhalten  in  dem  ein  Labelwert  liegen  darf  (0  bis  $FFFF). 
Einfügen  von  Tabellen  und  Text 

Drei  Pseudo-Ops  erleichtern  das  Einfügen  von  Tabellen  und 
Text  in  den  Quelltext.  Dies  sind: 

.by  —  erlaubt  das  Einfügen  von  Bytewerten  (Werten  zwischen  0 
und  $FF).  Einzelne  Bytewerte  werden  durch  Kommata  vonein¬ 
ander  getrennt.  Auch  Strings  der  Länge  1  sind  als  Bytewerte 
erlaubt.  Beispiel: 

100  -.by  0,  "a”,  123,  ”x”,  $fa 

.wo  —  erlaubt  das  Einfügen  von  Adressen  (Werten  zwischen  0 
und  $FFFF).  Mehrere  Adressen  werden  durch  Kommata  von¬ 
einander  getrennt.  Die  Adressen  werden  in  der  Folge 
Low/Highbyte  in  den  Objektcode  aufgenommen.  Beispiel: 

100  -.wo  marke-1,  label’ 2-1 

.tx  —  erlaubt  das  Einfügen  von  Text  in  den  Quelltext.  Die  einzel¬ 
nen  Zeichen  des  Textes  werden  als  ASCII-Code  im  Objektco¬ 
de  aufgenommen.  Beispiel: 

100  -.tx  "beispieltext” 

Überall  im  Quelltext,  wo  Bytewerte  erwartet  werden,  etwa 
bei  der  unmittelbaren  Adressierung,  können  Strings  der  Länge 
1  verwendet  werden.  Ein  Befehl  lda#”a”  ist  also  erlaubt. 

Die  bedingte  Assemblierung 

Zur  Unterstützung  der  bedingten  Assemblierung  bietet 
HYPRA-ASS  ein  IF/ELSE/ENDIF-Konstrukt  und  ein  IF/THEN- 
Konstrukt.  Außerdem  steht  ein  unbedingter  Sprungbefehl  zur 
Verfügung. 

.on  —  entspricht  dem  IF/THEN  von  Basic.  Hinter  .on  folgt  ein  Aus¬ 
druck,  ein  Komma  und  ein  zweiter  Ausdruck.  Ist  der  erste 
Ausdruck  wahr,  wird  zu  der  Zeilennummer  gesprungen,  die 
der  zweite  Ausdruck  angibt.  Beispiel: 

100  -.on  switch  !  =  !  7,  400 

Es  wird  die  Assemblierung  in  Zeile  400  fortgesetzt,  wenn 
switch  gleich  7  ist. 

.go  —  ergibt  einen  unbedingten  Sprung  zu  der  Zeile,  die  der  Aus¬ 
druck  hinter  .go  angibt.  Beispiel: 

100  -.go  1000 

.if  —  wird  gefolgt  von  einem  Ausdruck.  Ist  der  Ausdruck  wahr, 
wird  die  Assemblierung  hinter  der  .if-Zeile  fortgesetzt,  bis 

.el  —  gefunden  wird.  Daraufhin  wird 

.ei  —  gesucht  und  dahinter  die  Assemblierung  fortgesetzt. 

Entsprechend  erfolgt  die  Assemblierung  von  .el  bis  .ei,  falls 
der  Ausdruck  hinter  .if  falsch  ist.  .el  kann  auch  fehlen,  es  wird 
dann  direkt  hinter  .ei  fortgefahren. 

Auf  eine  Schachtelung  von  IF- Konstrukten  wurde  wegen 
des  Zwecks  der  bedingten  Assemblierung  verzichtet.  Bei- 


spiel: 

100 

-if  switch  !  = 

!  6 

110 

- 

lda#0 

120 

-.el 

130 

- 

lda#2 

140 

-.ei 

Wenn  switch  gleich  6  ist,  erhält  man  lda#0,  sonst  wird 
lda#2  erzeugt.  Vor  den  Pseudos  .if,  .el  und  .ei  dürfen  keine 
Label  in  derselben  Zeile  stehen. 

Verkettung  von  Quelltexten 

Mit  dem  Pseudo  .ap  (append)  kann  ein  weiterer  Quelltext  am 
Ende  des  Pass  2  automatisch  nachgeladen  werden,  wobei  der 
Programmzähler  aus  der  vorangegangenen  Assemblierung 
erhalten  bleibt. 

Hinter  .ap  muß  der  Name  des  nachzuladenen  Files  in  Anfüh¬ 
rungszeichen  stehen. 

Eine  Besonderheit  von  HYPRA-ASS  bildet  im  Zusammen¬ 
hang  mit  verketteten  Quelltexten  der  Pseudo-Opcode  .co 
(common). 

Dieser  Befehl  bewirkt  zunächst,  daß  alle  Variablen/Label,  die 
hinter  der  .co-An  Weisung  in  einer  Liste  stehen,  an  den  nachge¬ 
ladenen  Teil  übergeben  werden. 
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Zweitens  bleiben  alle  Quelltextzeilen  bis  zur  common-Zeile 
beim  Nachladen  erhalten.  Steht  also  etwa  ein  Makro  vor  der 
common-Zeile,  wird  auch  das  Makro  übergeben.  Zu  beachten 
ist  dabei: 

a)  Es  sollten  keine  Makroaufrufe  im  common-Bereich  stehen,  es 
sei  denn  innerhalb  eines  Makro. 

b)  Die  .ba-Anweisung,  die  die  Startadresse  des  Objektcodes  be¬ 
stimmt,  sollte  außerhalb  des  common-Bereiches  liegen,  damit 
nach  dem  Nachladen  nicht  wieder  mit  der  gleichen  Startadres¬ 
se  assembliert  wird. 

c)  Wertzuweisungen  an  Label  sollten  ebenfalls  außerhalb  des 
common-Bereiches  liegen,  um  Platz  für  den  nachgeladenen 
Quelltext  zu  gewinnen. 

Direktes  Senden  des  Objektcodes  zur  Floppy 

Der  Pseudobefehl  .ob  (object),  gefolgt  vom  Filenamen  ,p,w 
in  Anführungszeichen,  sendet  den  erzeugten  Objektcode  di¬ 
rekt  zur  Floppy. 

Geschlossen  wird  das  so  erzeugte  Objektfile  durch  den 
Pseudobefehl  .en. 

Sollte  während  der  Assemblierung  ein  Fehler  entdeckt  wer¬ 
den  und  das  Objektfile  nicht  schon  durch  die  HYPRA-ASS- 
Fehlerroutine  geschlossen  worden  sein,  geben  Sie  bitte  CLO- 
SE  14  ein. 

Ausgabe  von  formatierten  Listings 

1)  .li  1,3,0  sendet  ein  formatiertes  Listing  des  Quelltextes  unter 

der  logischen  Filenummer  1  an  das  Gerät  3  mit  der 
Sekundäradresse  0  (Bildschirm).  Die  Parameter  hin¬ 
ter  .li  entsprechen  denen  des  OPEN-Befehls.  So  ist 
es  auch  möglich,  mit  .li  2,8,2,  ”test,u,w"  das  Listing 
auf  eine  Userdatei  zu  leiten  und  so  weiter. 

Der  .li-Pseudobefehl  muß  der  erste  Befehl  im  Quelltext  sein, 
wenn  alle  Zeilen  gelistet  werden  sollen.  Die  Zeilen  bis  ein¬ 
schließlich  .li  werden  nicht  ausgegeben.  Die  gelisteten  Zeilen 
haben  folgendes  Format: 
cOOO  aObOcO:  1000  -marke  befehl  ;kommentar 

Die  Steuerung  der  Formatierung  erfolgt  mit  dem  Editorbe¬ 
fehl /t.  Bei  Zeilen,  die  Pseudobefehle  enthalten,  wie  .eq...  wer¬ 
den  keine  Adressen  und  Opcodes  ausgegeben. 

2)  .sy  1,3,0  sendet  am  Ende  von  Pass  2  die  sortierte  Symbolta¬ 

belle.  Die  Formatierung  wird  hier  durch  /t3,...  gesteu¬ 
ert.  Die  Labelwerte  werden  hexadezimal  ausgegeben. 

Eine  Zeile  der  Symboltabelle  sieht  dann  folgendermaßen 
aus: 

sprungziel  =  $ffd2 

Das  Listing  des  Quelltextes  erhält  die  Kopfzeile  »HYPRA- 
ASS  Assemblerlisting:«.  Die  Symboltabelle  erhält  die  Kopfzeile 
»Symbols  in  alphabetical  order«. 

3)  .dp 

t0,t1,12,t3  setzt  aus  dem  Quelltext  heraus  die  Tabulatoren 
tO  =  Tabulator  für  Assemblerbefehle 
tl  =  Tabulator  für  den  Kommentar  bei  der  formatier¬ 
ten  Ausgabe 

t2  =  Tabulator  für  die  Anzahl  der  Blanks,  die  am  An¬ 
fang  einer  Ausgabezeiie  ausgegeben  werden. 
t3  =  Tabulator  für  die  Symboltabelle 

4)  .st  beendet  die  Assemblierung 

Am  Ende  des  zweiten  Passes  wird  immer  die  Meldung  »end 
of  assembly«  gefolgt  von  der  Assemblierungsdauer  in  Minu¬ 
ten,  Sekunden  und  Zehntelsekunden  ausgegeben.  Dahinter 
folgt  die  Zeile  »base  =  $XXXX  last  byte  at  $YYYY«. 

Eine  Zusammenfassung  aller  Pseudobefehle  finden  Sie  in 
Bild  3. 


HYPRA-ASS-Editor 


Eines  der  Ziele  bei  der  Entwicklung  von  HYPRA-ASS  war  es 
auch, die  Editierung  von  Quelltexten  möglichst  bequem  zu  ma¬ 


1) 

.ba  SC000 

gibt  die  Startadresse  der  Assemblierung  an.  Bei 
anderen  Assemblern  heißt  dieser  Befehl  auch 
org  oder  *  =  . 

2) 

.eq  label=wert 

weist  einem  Label  einen  Wert  zu 

3) 

.gl  label=wert 

weist  einem  globalen  Label  einen  Wert  zu 

4) 

.by  1,2”a” 

Einfügen  von  Byte-Werten  in  den  Quelltext 

5) 

.wo  1234,label 

Einfügen  von  Adressen  in  der  Folge  low/high 

6) 

,tx”text” 

Einfügen  von  Text  als  ASCII-Werte 

7) 

.ap  ’fiie” 

Verketten  von  Quelltexten 

8) 

.ob  ”fi!e,p,w” 

Senden  des  Objektcodes  zur  Floppy 

9) 

.en 

Schließen  des  Objektfiles 

10) 

.on  aus- 

druck, Sprung 

bedingter  Sprung,  wenn  Ausdruck  wahr 

11) 

,go  Sprung 

unbedingter  Sprung 

12) 

.if  ausdruck 

Fortführung  der  Assemblierung  bei  ELSE,  falls 
Ausdruck  falsch.  Ansonsten  hinter  .if  bis  zu  EL¬ 
SE  oder  ENDIF. 

13) 

.el 

Alternative  zu  den  Zeilen,  die  hinter  .if  stehen 

14) 

.ei 

Ende  der  IF- Konstruktion 

15) 

.co  var1,var2 

Übergabe  von  Labein  und  Quelltext  an  nachge¬ 
ladene  Teile 

16) 

.ma  makro 
(pari  ,par2) 

Makrodefinitionszeile 

17) 

.rt 

Ende  der  Makrodefinition 

18) 

...makro 

(par1,par2) 

Makroaufruf 

19) 

.li  Ifn,  dn,  ba 

sendet  formatiertes  Listing  unter  der  File- 
Nummer  Ifn  zum  Gerät  dn  mit  der  Sekundär¬ 
adresse  ba 

20) 

.sy  Ifn,  dn,  ba 

sendet  formatierte  Symboltabelle  unter  der  File- 
Nummer  Ifn  zum  Gerät  dn  mit  der  Sekundär¬ 
adresse  ba 

21) 

.st 

beendet  die  Assemblierung 

22)  HntO,  t1,t2, 

setzt  die  Tabulatoren  T0,  TI,  T2,  T3  aus  dem 

Quelitext  heraus 

Vor  den  Anweisungen  12,  13,  14,  16  und  17  dürfen  in  derselben  Zeile 
keine  Label  stehen. 

Bild  3.  Zusammenfassung  aller  Pseudobefehle 

$0000 

Zeropage 

$033e 

Bandpuffer  als  Zwischenspeicher 

$0400 

Video-RAM 

$0800 

Hypra-ASS 

$1fd7 

Raum  für  Quelltext  und  Label.  Quelltext  bis  maximal 
$a000 

$a000 

Basic-Interpreter  —  darunter  von  cOOO  abwärts  die 
Symboltabelle 

$c000 

frei! 

$d000 

I/O  und  so  weiter 

$c000 

Kernal 

Bild  4.  Speicherbelegung  von  HYPRA-ASS 

chen.  Dazu  wurden  etliche  Funktionen,  die  im  normalen  Basic- 
Editor  stets  gebraucht,  aber  nie  vorhanden  sind,  in  den 
HYPRA-ASS-Editor  eingebaut. 

Als  Grundlage  des  HYPRA-ASS- Editors  blieb  dabei  der 
Basic-Editor  erhalten. 

Ein  HYPRA-ASS-Quelltext  wird  also  im  Prinzip  genauso  ein¬ 
gegeben  wie  ein  Basic-Programm.  Allerdings  muß  hinter  der 
Zeiiennummer  immer  ein  Minuszeichen  eingegeben  wer¬ 
den,  das  den  Beginn  der  Quelltextzeile  bildet.  So  eingegebe¬ 
ne  Quelltextzeilen  werden  als  ASCII-Zeilen  in  den  Speicher 
übernommen.  Alle  überflüssigen  Blanks  werden  entfernt. 

Jede  eingegebene  Zeile  wird  sofort  nach  der  Übernahme 
formatiert  ausgegeben,  um  die  Übersichtlichkeit  des  Quelltex¬ 
tes  zu  gewährleisten.  Eine  Tabelle  aller  Editorbefehle  finden 
Sie  in  Bild  1. 

(Gerd  Möllmann/ah) 
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Programm 

:  hypra-ass 

0801  l+d7 

0abl 

06 

20 

+  3 

bc 

4c 

0c 

0b 

20 

ed 

0d71 

d0 

+  b 

20 

73 

00 

90 

0b 

20 

3l6 

0ab9 

13 

bl 

90 

06 

20 

0801 

: 

/6 

08 

00 

00 

9e 

32 

31 

36 

28 

0acl 

0c 

0b 

20 

79 

00 

10 

03 

4c 

af 

0d81 

; 

b0 

11 

e9 

2+ 

20 

7e 

bd 

a5 

52 

0809 

! 

38 

3a 

22 

0d 

91 

00 

05 

20 

66 

0ac9 

bl 

ae 

c9 

2b 

+  0 

de 

c9 

24 

le 

0d89 

: 

61 

18 

69 

04 

85 

61 

90 

e2 

3d 

081 1 

: 

20 

27 

48 

59 

50 

52 

41 

2d 

+  9 

0adl 

f0 

20 

c9 

2d 

+  0 

16 

c9 

22 

14 

0d91 

4c 

7e 

b9 

a5 

61 

e9 

03 

90 

d2 

0819 

: 

41 

53 

53 

20 

20 

20 

20 

20 

al 

0ad9 

+  0 

15 

c9 

21 

+  0 

17 

c9 

3e 

56 

0d99 

• 

05 

85 

61 

4c 

0c 

0b 

4c 

08 

9d 

0821 

• 

4d 

41 

4b 

52 

4+ 

41 

53 

53 

1  + 

0ael 

f0 

5a 

c9 

3c 

f  0 

56 

20 

fl 

le 

0da  1 

s 

af 

85 

62 

B4 

63 

a2 

90 

30 

3a 

0829 

: 

45 

4d 

42 

4c 

45 

52 

0d 

20 

8a 

0ae9 

ae 

4c 

0c 

0b 

4c 

0d 

a+ 

4c 

a6 

0da9 

: 

4c 

49 

bc 

00 

00 

00 

00 

00 

c? 

0831 

: 

20 

C0 

C0 

c  0 

C0 

C0 

C0 

C0 

90 

0af  1 

bd 

ae 

4c 

6a 

0d 

20 

73 

00 

05 

0db  1 

: 

a2 

00 

86 

0d 

86 

0C 

86 

0e 

96 

0839 

: 

C0 

C0 

C0 

C0 

C0 

C0 

C0 

C0 

38 

0a+9 

c9 

4e 

d0 

0a 

20 

73 

00 

c9 

90 

0db9 

: 

a5 

7a 

a4 

7b 

85 

49 

84 

4a 

7d 

0841 

: 

C0 

c  0 

C0 

C0 

C0 

c  0 

C0 

C0 

40 

0b01 

21 

d0 

03 

4c 

d0 

ae 

a9 

00 

f  e 

0dc  1 

; 

20 

79 

00 

20 

13 

bl 

b0 

09 

36 

0849 

: 

C0 

C0 

C0 

C0 

C0 

C0 

0d 

20 

38 

0b  09 

4c 

7+ 

0a 

20 

79 

00 

aa 

10 

f  e 

0dc9 

: 

a9 

20 

85 

81 

a9 

07 

4c 

7+ 

17 

0851 

: 

20 

20 

56 

4+ 

4e 

0d 

0d 

20 

c3 

0b  11 

01 

60 

68 

68 

8a 

c9 

21 

d0 

87 

0dd  1 

0a 

20 

73 

00 

90 

05 

20 

13 

a0 

0859 

: 

20 

20 

c7 

45 

52 

44 

20 

cd 

87 

0b  19 

0c 

20 

73 

00 

aa 

20 

73 

00 

8c 

0dd9 

bl 

90 

04 

eB 

4c 

d2 

0d 

c9 

14 

0861 

: 

4+ 

45 

4c 

4c 

4d 

41 

4e 

4e 

a4 

0b21 

c9 

21 
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Basic-Start- 

Generator 

Maschinenroutinen  laden  wie  Basic- 
Programme  und  mit  RUN  starten, 
bleibt  nicht  länger  ein  Wunschtraum. 
Dieses  Programm  macht  es  möglich. 

Wie  war  noch  die  Startadresse  für  den  Monitor?  Sie  haben 
bestimmt  auch  schon  öfter  die  Einsprungadresse  eines  Ma¬ 
schinenprogramms  vergessen,  wenn  Sie  viel  mit  Assembler¬ 
programmen  arbeiten.  Abhilfe  schafft  diese  kleine  Routine,  die 
Sie  mit  dem  MSE  eingeben  müssen. 

Das  Programm  macht  aus  einem  im  Speicher  befindlichen 
Maschinenprogramm  ein  Programm,  das  einen  normalen 
Basic-Start  besitzt.  Es  braucht  lediglich  noch  auf  den  Datenträ¬ 
ger  gespeichert  zu  werden  —  fertig!  Das  speichern  geschieht 
mitSAVE’’name”,8(1).  Damit  entfällt  die  leidige  Frage  nach  dem 
SYS-Befehl,  was  bei  einer  großen  Programmsammlung  schon 
lästig  sein  kann.  Das  so  präparierte  Programm  kann  normal  (mit 
»,8«  oder  »,1«)  geladen  und  mit  RUN  gestartet  werden. 

Ausgenommen  sind  Programme,  die  im  Bereich  von  $0800 
bis  $09af  und  unter  dem  Basic-  und  Kernal-ROM  liegen,  da 
hier  entweder  der  Basic-Start-Generator  oder  von  ihm  verwen¬ 
dete  Routinen  liegen. 

Tips  zur  Bedienung 

1.  Laden  des  zu  bearbeitenden  Maschinenprogramms 

2.  NEW  eingeben 

3.  Laden  des  Basic-Start-Generators  mit  LOAD”name”,8 

4.  Starten  mit  RUN 

5.  Eingabe  von  SYS  2089, [anfang], [ende+1],[einsprung] 
[anfang]:  Beginn  des  Maschinenprogramms  im  Speicher 
[ende]:  Ende  des  Maschinenprogramms  im  Speicher 
[einsprung]:  Einsprungadresse,  also  der  SYS-Wert,  mit  dem 
normalerweise  das  Programm  gestartet  wurde. 

Alle  Parameter  müssen  in  dezimaler  Schreibweise  eingege¬ 
ben  werden,  wobei  der  korrekte  Bereich  (0  bis  65535)  selbst 
überprüft  werden  muß.  Es  wird  ein  »ILLEGAL  QUANTITY 
ERROR«  ausgegeben,  falls  [anfang]  >  =  [ende]  ist. 

6.  Speichern  des  erzeugten  Programms  mit  SAVE  ”name”,8 

Funktion 

Nach  der  Eingabe  und  Umrechnung  der  Parameter  in  das 
16-Bit-Förmat  wird  das  Quellprogramm  direkt  hinter  den  Start- 
Generator  kopiert  (ab  $08af).  Dem  Quellprogramm  ist  nun 
sein  späterer  Programmkopf  vorgelagert.  Des  weiteren  wird 


nun  ein  Teil  des  Start-Generators  nach  SC000  kopiert,  der  die 
weitere  Arbeit  übernimmt. 

Jetzt  werden  der  Programmkopf  und  das  dahinter  liegende 
Quellprogramm  nach  $0800,  also  dem  Basic-Start,  kopiert. 
Anschließend  werden  die  Basic-Pointer  (Anfang/Ende  des 
Basic-Programms)  und  im  Programmkopf  die  Adressen  ge¬ 
setzt.  Nach  der  Meldung  »READY  TO  SAVE«  kann  das  bearbei¬ 
tete  Programm  abgespeichert  werden. 

Nun  eine  nähere  Erläuterung  zum  Programmkopf:  Im  Basic- 
ROM  gibt  es  eine  Unterroutine,  die  Speicherinhalte  verschie¬ 
ben  kann  und  deren  Einsprungpunkt  bei  $A3BF  liegt. 

Diese  Verschieberoutine  macht  sich  der  Basic-Start-Gene¬ 
rator  im  Programmkopf  zunutze,  so  daß  das  Quellprogramm 
wieder  in  seinen  Ursprungsbereich  kopiert  werden  kann.  Die 
Übergabe  der  Kopierparameter  erfolgt  in  den  Adressen: 
$5F/$60  —  alter  Blockanfang 
$5A/$5B  —  altes  Blockende  +  1 
$58/$59  —  neues  Blockende  +  1 

Nach  dem  Start  des  mit  einem  Basic-Start  versehenen  Pro¬ 
gramms  wird  die  Blockverschieberoutine  aktiviert  und  das 
Programm  in  seinen  Bereich  kopiert  und  gestartet. 

Soll  das  Programm  nach  RUN  nur  an  seinen  ursprünglichen 
Start  verschoben  werden,  müssen  Sie  als  Einsprungadresse 
eine  Adresse  wählen,  bei  der  ein  RTS  (return  to  subroutine) 
steht.  Beispielsweise  64922,  eine  Adresse  im  Betriebssy¬ 
stem  des  C  64.  RTS  entspricht  einem  RETURN  in  Basic.  Es 
bewirkt,  daß  das  Programm  zwar  verschoben,  aber  nicht  ge¬ 
startet  wird.  Haben  Sie  zum  Beispiel  den  SMON  mit  dem  Start- 
Generator  behandelt,  meldet  sich  der  SMON  nach  RUN  mit 
der  Registeranzeige,  wenn  Sie  als  Einsprungadresse  49152 
angegeben  haben.  Haben  Sie  64922  angegeben,  kommt  die 
RFADY-Meldung.  Mit  SYS49152  können  Sie  dann  den  SMON 
sranen.  (Hermann-Josef  Rottkemper/hm) 
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Listing  zum 
Basic-Start-Generator. 

Beachten  Sie  bitte  die  Eingabe¬ 
hinweise  auf  Seite  77. 
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REM-Killer 

Überflüssige  REM-Anweisungen  in 
Basic-Programmen  lassen  sich  leicht 
entfernen.  Dieses  Programm  rechnet 
aber  zusätzlich  alle  Sprünge  auf  ge¬ 
löschte  REM-Zeilen  um.  Und  das  in 
wenigen  Sekunden. 

REM-Statements  sind,  vor  allem  für  längere  Basic-Program- 
me,  unumgänglich,  um  im  relativ  unübersichtlichen  »Basic- 
Dschungel«  den  Überblick  zu  behalten.  Spätestens  dann, 
wenn  an  einem  umfangreichen  Programm  nach  einiger  Zeit  Än¬ 
derungen  erforderlich  sind,  wird  auch  der  erfahrene  Program¬ 
mierer  dankbar  sein,  wenn  er  seine  Unterprogramme  und  un¬ 
durchsichtigen  PEEKs,  POKEs  und  SYS-Befehle  mit  Hilfe  von 
REMs  noch  durchschauen  kann.  Kurz  gesagt,  auch  in  sauber 
strukturierten  Programmen  gehört  eine  klare  Dokumentation 
einfach  dazu. 


Das  Problem  mit  den  REMs 


Leider  haben  REM-Statements  die  unangenehme  Eigen¬ 
schaft,  Programme  wesentlich  zu  verlängern  und  auch  zu  ver¬ 
langsamen.  Im  Gegensatz  zu  einem  Befehl  (zum  Beispiel  PO- 
KE),  werden  REMarks  nicht  in  einem  Byte  abgespeichert,  son¬ 
dern  nehmen  durch  buchstabenweise  Abspeicherung  in 
ASCII-Codes  eine  Menge  Platz  weg.  Am  besten  wäre  daher, 
Basic-Programme  mit  ausführlicher  REM-Dokumentation  zu 
entwickeln  und  auch  so  zu  speichern.  Aus  diesen  »Quellpro¬ 
grammen«  können  dann  die  REMs  entfernt  werden,  um  kürze¬ 
re  und  schnellere  »Lauf«-Versionen  zu  erhalten.  Sollten  später 
einmal  Änderungen  erforderlich  werden,  nimmt  man  diese  am 
»Quellprogramm«  vor  und  generiert  daraus  wiederum  das 
»Laufprogramm«. 

Da  es  sehr  umständlich  ist,  die  REMs  in  Handarbeit  zu  ent¬ 
fernen,  braucht  man  ein  Programm,  das  einem  diese  Arbeit  ab¬ 
nimmt.  Wozu  hat  man  schließlich  einen  Computer.  Das  Pro¬ 
gramm  sollte  sehr  schnell  und  unkompliziert  zu  bedienen  sein; 
es  sollte  ferner  Sprünge  auf  Zeilen,  die  mit  einem  REM  begin¬ 
nen  (und  daher  vollständig  gelöscht  werden)  korrigieren.  Ge¬ 
nau  das  macht  diese  Maschinenroutine. 


Der  REM-Korrektor 


Wenn  der  REM-Korrektor  mittels  MSE  als  Maschinenpro¬ 
gramm  auf  Kassette  oder  Diskette  gespeichert  ist,  kann  die¬ 
ses  jederzeit  mit  LOAD”REM-KORREKTOR”,8,1  (,1 ,1)  geladen 
werden.  Auch  dann,  wenn  sich  bereits  ein  Basic- Programm  im 
Speicher  befindet.  Der  gefürchtete  OUT  OF  MEMORY  ER¬ 
ROR,  der  durch  das  Nachladen  von  Maschinenprogrammen 
und  dem  damit  verbundenen  »Verbiegen«  der  Basic-Zeiger 
auftritt,  wird  beim  Starten  des  REM-Korrektors  mit  SYS  52000 
aufgehoben.  Der  REM-Korrektor  liegt  ab  Adresse  52000  im 
Speicher,  damit  die  Datasetten-Anwender  nicht  auf  TURBO 
TAPE  verzichten  müssen. 

Befindet  sich  der  REM-Korrektor  einmal  im  Computer,  kann 
er  selbstverständlich  immer  wieder  mit  SYS  52000  aufgeru¬ 
fen  werden.  Danach  werden  alle  REMs  aus  dem  Basic-Pro- 
gramm  entfernt.  Steht  die  REM-Anweisung  am  Zeilenanfang, 
wird  die  ganze  Zeile  gelöscht.  Steht  sie  am  Zeilenende,  wird 
nur  alles  nach  dem  REM  gelöscht.  Sprünge  auf  gelöschte 


REM-Zeilen  werden  korrigiert,  auch  wenn  die  neuen  Sprung¬ 
adressen  aus  mehr  ASCII-Codes  bestehen  wie  die  ursprüngli¬ 
chen.  GOTO  99  erfordert  3  Bytes  in  Basic.  Wird  die  Zeile  ge¬ 
löscht,  und  die  nächste  gültige  Zeile  ist  1 2300,  werden  für  den 
geänderten  Befehl  GOTO  12300  6  Bytes  erforderlich.  Ferner 
setzt  das  Programm  alle  Basic-Zeiger  in  der  Zeropage  auf  den 
aktuellen  Wert. 

Bearbeitet  werden  alle  Sprünge  wie 

GOTO 

GOSUB 

IF...THEN  (Zeilennummer) 

IF...THEN  GOTO  (Zeilennummmer) 

IF...THEN  GOSUB  (Zeilennummer) 

IF...GOTO  (Zeilennummer) 

IF... GOSUB  (Zeilennummer) 

ON  X  GOTO  (Zeilennummer),  (Zeilennummer),... 

ON  X  GOSUB  (Zeilennummer),  (Zeilennummer),... 

Einer  Zeilennummer  vorangehende  Leerzeichen  sind  eben¬ 
falls  erlaubt.  Bei  ON  X  GOTO  oder  ON  X  GOSUB  muß  jede  Zei¬ 
lennummer,  bis  auf  die  letzte  durch  ein  Komma  abgetrennt 
sein. 

ON  X  GOTO  200,  300,  400,  500,  600  ist  erlaubt.  Nicht  je¬ 
doch 

ON  X  GOTO  200,  300,  400  ,  500,  600. 

Während  des  Programmablaufs  erscheinen  zur  Kontrolle 
der  Korrekturen  die  Nummern  der  in  die  Sprungbefehle  neu 
eingesetzten  Zeilen  auf  dem  Bildschirm. 

Anschließend  kann  mit  dem  Basic-Programm  ganz  normal 
weitergearbeitet  werden. 


Tips  zur  Benutzung 


1.  Der  REM-Korrektor  ist  in  der  Lage,  durch  NEW  versehent¬ 
lich  gelöschte  Basic-Programme  zu  regenerieren  (RENEW- 
Funktion),  wenn  man  vor  dem  Starten  durch  SYS  52000  den 
Befehl  POKE  2050,1  eingibt  (allerdings  sind  dann  sämtliche 
REMs  »raus«). 

2.  Zeile  0  darf  keine  REM-Zeile  sein  (OREM...).  Enthält  Zeile 
0  einen  REM-Befehl,  werden  keine  Sprungkorrekturen  ausge¬ 
führt. 

Der  REM-Korrektor  benötigt  für  ein  20  KByte  langes  Basic- 
Programm  etwa  1,5  Sekunden,  wenn  keine  Sprungkorrektu¬ 
ren  notwendig  sind.  Aber  auch  wenn  zahlreiche  Korrekturen 
durchgeführt  werden  müssen,  bleibt  die  Ablaufzeit  im  Bereich 
von  einigen  Sekunden. 

Ist  kein  Basic-Programm  im  Speicher,  stoppt  der  REM- 
Korrektor  sofort  wieder.  Sind  nur  REM-Zeilen  vorhanden,  führt 
er  einen  RESET  durch.  Der  REM-Korrektor  bleibt  jedoch  funk¬ 
tionsfähig. 

Das  Programm  arbeitet  aus  Geschwindigkeitsgründen  mit 
Hilfsspeicherbereichen  in  denen  Hilfszeiger  abgelegt  sind.  Da 
diese  den  RAM-Speicher  unter  dem  ROM  benutzen,  wird  kein 
Basic-Speicherplatz  verbraucht. 

3.  Die  Arbeitsweise  des  REM-Korrektors 

Das  Maschinenprogramm  ist  in  drei  Hauptteile  gegliedert.  Im 
ersten  Teil  wird  das  Basic-Programm  durchsucht  und  für  jede 
gültige  Zeile,  oder  den  gültigen  Teil  einer  Zeile,  die  Anfangs¬ 
adresse  (2  Bytes)  und  die  Zahl  der  Bytes  (1  Byte)  unter  dem 
ROM  ab  Adresse  $A000  abgelegt. 

Die  Nummern  der  gelöschten  Zeilen  (2  Bytes)  sowie  die 
Nummer  der  jeweils  nächsten  gültigen  Zeile  (die  nicht  mit  ei¬ 
nem  REM  beginnt),  werden  ab  Adresse  $FFFF,  ebenfalls  un¬ 
ter  dem  ROM,  in  absteigender  Folge  abgelegt. 

Anhand  der  Zeiger  ab  $A000  werden  die  Zeilenteile  der 
Basic-Bereiche  neu  zusammengesetzt  und  nach  untern  kom¬ 
primiert.  Das  heißt,  daß  mit  den  gültigen  Zeilen  oder  Zeilentei- 
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9b 

cda0 

: 

a6 

cd 

a9 

00 

85 

49 

a0 

00 

bc 

cf  08 

: 

60 

a5 

2d 

d0 

02 

c6 

2e 

c6 

3d 

cc40 

: 

a0 

00 

a9 

00 

91 

f  7 

20 

66 

71 

cda8 

a9 

ff 

85 

39 

a9 

ff 

35 

3a 

fe 

cf  10 

! 

2d 

60 

ff 

ff 

ff 

ff 

ff 

ff 

6d 

cc48 

: 

CC 

91 

f  7 

20 

66 

CC 

91 

f  7 

e2 

cdb0 

: 

bl 

39 

d0 

17 

20 

fd 

CC 

bl 

9d 

cc50 

; 

20 

66 

CC 

f  7 

85 

2d 

85 

f  6 

cdbB 

: 

39 

d0 

0d 

20 

fd 

CC 

bl 

39 

20 

L.isimg  aes 

cc58 

; 

2f 

85 

31 

a5 

fB 

85 

2e 

85 

ca 

cdc0 

: 

d0 

03 

4c 

2B 

cd 

20 

0d 

cd 

d8 

REM-Korrektors. 

■ 

cc60 

: 

30 

d0 

85 

02 

32 

e6 

4c 
f  8 

14 

60 

cd 

e6 

e6 
f  9 

f  7 
d0 

a4 

d9 

cdc8 

cdd0 

: 

20 

0c 

0d 

20 

S:' 

4S 

c5 

d0 

47 

9d 

90 

Beachten  Sie  bitte  die  Eingabe- 

cc70 

: 

02 

e6 

fa 

60 

a5 

f  7 

85 

3b 

57 

cddB 

: 

d0 

06 

4c 

ec 

cd 

20 

fd 

cc 

cb 

hinweise  auf  Seite  77. 

len  das  ursprüngliche  Basic- Programm  überschrieben  wird. 
Da  das  neue  Basic-Programm  kürzer  oder  höchstens  gleich 
lang  ist  wie  das  alte,  kann  diese  Operation  Zeile  für  Zeile  im  sel¬ 
ben  Speicherbereich  (Basic-Bereich  ab  2048)  stattfinden. 
Damit  sind  die  REMs  entfernt! 

Die  Teile  1  und  2  sind  sehr  schnell,  da  der  Basic-Speicher- 
bereich  jeweils  nur  einmal  durchlaufen  werden  muß. 

Im  dritten  Teil  wird  das  Basic-Programm  nach  Sprungcodes 
durchsucht.  Dabei  werden  Bytes,  die  zufällig  eine  Sprung¬ 
adresse  darstellen,  sich  aber  innerhalb  von  Anführungszei¬ 
chen  befinden  (Strings),  natürlich  ignoriert. 

Die  gefundene  Adresse,  also  die  Folge  von  ASCII-Codes, 


wird  in  eine  2-Byte-Hexadezimalzahl  umgewandelt  und  der 
Bereich  von  SFFFF  abwärts  durchsucht,  ob  diese  Zeilennum¬ 
mer  mit  der  Nummer  einer  gelöschten  Zeile  übereinstimmt. 
Trifft  dies  zu,  wird  die  ebenfalls  abgespeicherte  Hexadezimal¬ 
zahl  (Zeilennummer)  der  nächsten  gültigen  Zeile  geholt  und  in 
ASCII-Codes  umgerechnet.  Ist  die  neue  Zeilennummer,  in  ei¬ 
ner  Folge  von  ASCII-Codes  ausgedrückt,  länger  als  die  alte, 
wird  das  Basic-Programm  um  diesen  Unterschied  nach  hinten 
verschoben  und  die  Basic-Zeiger  restauriert.  Dann  wird  die 
Zeilennummer  eingefügt  und  festgestellt,  ob  noch  eine  Zeilen¬ 
nummer  folgt  (ON...GOTO).  Wenn  nicht,  wird  nach  weiteren 
Sprungcodes  gesucht.  (Dipl.  Ing.  Wilhelm  Meierhofer/hm) 


Hier  gibt's  Clubs 

Computer-User-Vereinigung  Bruchsal 

e.  V.  (C.  U.  V.  B.) 

Torsten  Zimmermann, 
Steinacker  12,  7520  Bruchsal, 
überregionaler  Club, 
Clubzeitung,  Software- 
und  Hardware-Vertrieb, 
Computertage,  Basic-Kurse 
Computergemeinschaft  64 
Michael  Fuhrmann, 

Eilveser  Hauptstr.  34, 

3057  Neustadt  i, 
Programmaustausch,  POKE’s, 
Tricks,  Verbindungen  zwischen 
C  64-Freunden 
Outlaws  64 
Sudetenstr.  8, 

6090  Rüsselheim  7, 
Spielturniere,  Clubtreffen, 
Clubzeitung,  Tauschbörse 


Software-Club-64 

Hannelore  Bauerhenne, 
Danziger  Str.  5, 

6272  Niedernhausen, 
Club-Mitteilungsdiskette 
zum  Selbstkostenpreis 

LCC  —  Lübecker 
Commodorc  Club, 

Moltkestr,  14,  2400  Lübeck, 

Clubtreffen, 

Softwarebibliothek, 

Basic,  Logo,  evtl.  DFÜ, 
Aufnahmeprüfung: 
eigenes  Programm 

POKIS-User  &  Computerclub 

Gerhard  Hammer, 

Postfach  2886, 

2000  Hamburg  20, 
Clubzeitung,  Grundlagen- 
Kurse,  Freizeitclub  für 
Angehörige  von  Mitgliedern 


Sigi-Soft-Computerdub 

Siegmar  Bröhl, 

Rosenharth  4, 

5207  Ruppichteroth  1, 
Clubtreffen,  Club-Zeitschrift, 
Softwarebibliothek 
Software-Changer-Club  64  (SCC  64) 
Thomas  Ross, 
Neukirchenerstr.  55, 

4150  Krefeld  11, 

Adventure  programmieren, 
Ideenaustausch,  Clubzeitung, 
Programmaustausch 
Falken-User-Gruppe  München 
St,  Bonifatiusstr.  3/III, 

8000  München  90, 
wöchentlicher  Treff, 
Programmierung  von 
Strategiespielen,  Kurse, 
Softwarebibliothek, 
Öffentlichkeitsarbeit  zu 
neuen  Medien,  Diskussionen 


C  64-Club 

Günther  Schroth,  Lindenstr.  9, 

7273  Ebhausen  3, 

Hardware-,  Software- 
und  Erfahrungsaustausch 
NO  NAME-Commodore-64-Club 
Ralf  Hottmeyer, 

Mudersbacherstr.  81, 

5000  Köln  91, 

Clubtreffen:  monatlich, 
kein  Clubbeitrag,  Programm¬ 
und  Informationsaustausch 
C  64-Club  »New  Line« 

Postfach  8007,  7910  Neu-Ulm  8, 
Softwaretausch,  Public  Domain 
Software,  Programmieranlei¬ 
tungen,  Programmieraufträge 
annehmen  und  an  Mitglieder 
vergeben 

In  der  nächsten  Ausgabe 
geht 's  weiter  mit  den  Clubs. 
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Tips&Tricks 


C  64 


Komfortable 

Ein/Ausgabe- 

routine 

Dieses  frei  verschiebbare  Programm 
für  den  C  64  erlaubt  die  Eingabe  von 
bis  zu  255  Zeichen.  Es  sind  nur  Zei¬ 
chen  erlaubt,  die  vorher  definiert  wur¬ 
den. 

Das  Programm  ist  261  Bytes  lang  und  wird  direkt  in  den 
Speicher  geschrieben.  Da  es  frei  verschiebbar  ist,  verlangt  der 
Lader  zuerst  die  Eingabe  der  Startadresse  und  gibt  dann  die 
Einsprungadressen  der  beiden  Routinen  aus. 

Eingabe-Routine: 

Syntax:  SYS<eingabe),  (länge),  (zeichen),  Variable) 

(eingabe)  entspricht  der  Startadresse  der  Routine;  (länge)  be¬ 
stimmt  die  maximale  Anzahl  der  Zeichen  und  (zeichen)  die  Zei¬ 
chen  selbst,  die  eingegeben  werden  dürfen.  Mit  (variable) 
kann  die  Variable  selbst  bestimmt  werden,  unter  der  die  Einga¬ 
be  abgespeichert  wird.  Ein  alter  Eintrag  wird  dabei  überschrie¬ 
ben.  Bevor  die  Eingabe  beendet  werden  kann,  muß  minde¬ 
stens  ein  Zeichen  eingegeben  werden.  Für  (länge)  und  (Zei¬ 
chen)  können  auch  Variablen  gesetzt  werden. 
Ausgabe-Routine: 

Syntax:  SYS(ausgabe),  (zeile),  (spalte),  (druckliste) 

Diese  Routine  gleicht  dem  PRINT-Befehl,  wobei  jedoch  auch 
der  Startpunkt  der  Ausgabe  mit  (zeile)  und  (spalte)  festgesetzt 
werden  kann. 

Beispiele: 

SYS  eingabe,12,  "abcdefghijklmnopqrstuvwxyz",  e1$ 

SYS  eingabe, 5,  ”1234567890.”,  z$ 

SYS  eingabe,C%,a$,b$ 

SYS  ausgabe,0,5,”Hamader  Juergen" 

SYS  ausgabe,ze,sp,tab  (5);a;s$,”.- 

(Jürgen  Hamader/ah) 


1000  REM  *  HAMADER  JUERSEN  * 

1010  REM  *  ORNETSMUEHL  30  * 

1020  REM  *  A-4910  RIED  I/I  * 

1030  : 

1040  PRINT  CHR$(147)TAB(12) "EINGABE-AUSBAB 
E"CHR$<17) 

1050  I NPUT " ST ART ADRESSE  "  ;  SA 
1060  FÜR  1=  SA  TO  SA+260 
1070  READ  A: AA=AA+A:POKE  I,A:NEXT 
1080  IF  AAO  39363  THEN  PRINT"?CHECKSUM  ER 
RQR" : END 

1090  PRINT  CHR*(17)CHR$(17) "EINGABE:  SYS"S 
A" , L AENGE , TEXT , VAR I ABLE “ 

1100  PRINT  CHR£(17) "AUSGABE:  SYS"SA+224" , S 
PALTE, ZEILE, TEXT" 

1110  DATA  32,253,174,32,158,183,224,0,240, 

18.134. 252 . 32 . 253 .174.32 

1120  DATA  158,173,32,143,173,32,166,182,20 
1,0,208,3,76,72, 178,133 
1130  DATA  167,165,34,133,168,165,35,133,16 
9,169,0,133,69,32,253,174 
1140  DATA  32,139,176,32,143,173,169,0,133, 
170,133,253,133,251 , 133,204 
1150  DATA  169,96,133,254,165,198,240,252,3 
2,180,229,201,20,240,51,201 
1160  DATA  13,240,81,160,0,209,168,240,7,20 
0,196,167,208,247,240,228 
1170  DATA  164,251,145,253,133,171,32,210,2 
55 , 230 , 170 , 230,25 1,165,251,197 
1180  DATA  252,208,209,198,251,165,252,133, 
170,169,157,32,210,255, 169,0 
1190  DATA  240,194,166,251,240,190,198,170, 

166.170.232.228.252.240.7.32 

1200  DATA  210,255,198,251,16,174,169,32,32 
,210,255,169,157,32,210,255 
1210  DATA  169,0,240,160,166,251,240,156,16 
9,1, 133,204,165, 170,197,252 
1220  DATA  240,9,169,32,32,210,255,169,0,24 
0,5,165, 171,32,210,255 
1230  DATA  160,0,165,170,145,71,32,244,180, 
152,72,138,160,1 ,145,71 
124ki  DATA  200,104,145,71,160,0,177,253,145 
,51,200, 196,170,208,247,96 
1250  DATA  32,253,174,32,158,183,224,40,144 
,3,76,72,178,138,72,32 
1260  DATA  253,174,32,158,183,224,25,176,24 

1 . 104.168.24.32.240.255.32 
1270  DATA  253,174,76,164,170 


<255> 

<  145> 
<003> 

<  068  > 

<100> 

<075> 

<  178> 
< 024 > 

<015> 

<  2 1 8  > 

<003> 

<  1 63  > 

<  134> 
<008 > 
<083> 
<102> 

<  0 1 3  > 
<007> 
<196> 

<  199> 

<  161  > 

<  1 65  > 

<  171  > 

<  229  > 
<140> 
<223 > 


<  166> 
<003> 


Listing  »Ein-/Ausgaberoutine« 


Hinweise  zum  Abtippen  unserer  Listings 


Wenn  Sie  die  64 'er  schon 
öfter  gelesen  haben,  sind  Ih¬ 
nen  die  Programme  Check¬ 
summer  und  MSE  sicher  ein 
Begriff.  Diese  Programme 
erleichtern  Ihnen  die  Arbeit 
beim  Abtippen  der  Listings 
ganz  erheblich. 


Checksummer  und  Basic-Lisfings 

Der  Checksummer  ist  »zu¬ 
ständig«  für  alle  Basic-Pro- 
gramme.  Er  zeigt  nach  Ein¬ 
gabe  einer  Basic-Zeile  eine 
Prüfsumme  am  Bildschirm 
an.  Wenn  diese  Zahl  mit  der 
in  Klammern  » <  > «  stehen¬ 
den  Zahl  rechts  von  jeder 
Basic-Zeile  in  unseren  Li¬ 
stings  nicht  übereinstimmt, 
dürfte  ein  Tippfehler  vorlie¬ 
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gen.  Die  Zahl  mit  den  Klam¬ 
mern  darf  nicht  mit  eingege¬ 
ben  werden. 

In  allen  Basic-Listings  fin¬ 
den  Sie  Zeichen  und  Wörter 
in  geschweiften  Klammern. 
Diese  stehen  als  Ersatz  für 
Grafik-  und  Steuerzeichen 
und  dienen  der  besseren 
Lesbarkeit.  So  bedeutet  zum 
Beispiel  [CLR],  daß  die 
SHIFT  und  die  CLEAR/ 
HOME-Taste,  oder  (13SPA- 
CE],  daß  13mal  die  Leertaste 
betätigt  werden  muß. 

In  vielen  Basic-Listings  fin¬ 
den  Sie  unterstrichene  und 
überstrichene  Buchstaben. 
Unterstrichene  Buchstaben 
bedeuten,  daß  Sie  die  SHIFT- 
Taste  und  den  entsprechen¬ 


den  Buchstaben,  überstri¬ 
chene  Zeichen  die  Commo- 
dore-Taste  und  den  Buchsta¬ 
ben  drücken  müssen.  Auf 
dem  Bildschirm  erhalten  Sie 
dann  die  entsprechenden 
Grafikzeichen.  Sie  können 
die  Basic-Listing  auch  ohne 
den  Checksummer  einge¬ 
ben. 

MSE  für  Assemblerprogramme 

Der  MSE  (Maschinenspra¬ 
che  Editor)  ist  eine  große  Hil¬ 
fe  bei  der  Eingabe  von  Ma¬ 
schinenprogrammen.  Der 
MSE  erspart  ungefähr  ein 
Drittel  Tipparbeit  und  ge¬ 
stattet  keine  Fehleingaben. 
MSE-Listings  sind  erkenn¬ 
bar  an  den  hexadezimalen 


Zahlenkolonnen.  Als  Notbe¬ 
helf  können  Sie  diese  Li¬ 
stings  aber  auch  mit  einem 
Maschinensprachemonitor 
eingeben. 

Diese  Programme  (Check¬ 
summer  und  MSE)  wurden  in 
den  64’er  Ausgaben  1/85  bis 
6/85  mit  einer  ausführlichen 
Erklärung  abgedruckt.  Sie 
befinden  sich  aber  ebenfalls 
auf  jeder  Leserservice-Dis¬ 
kette.  Gegen  Einsendung  ei¬ 
nes  frankierten  und  an  Sie 
selbst  adressierten  Briefum¬ 
schlags  (Größe  DIN  C5  =  0,80 
Mark,  DIN  C4  =  l,10  Mark 
Porto)  schicken  wir  Ihnen 
gerne  beide  Listings  mit  ei¬ 
ner  ausführlichen  Erklärung 
zu.  □ 


Um 


er-£ntfn&de 
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Centronics* 
Interface  für 
jeden  Bedarf 

Will  man  einen  Drucker  mit  Centro- 
nics-Eingang  an  den  C  64  anschlie¬ 
ßen,  kommt  man  um  ein  Interface 
nicht  herum.  Wir  zeigen  Ihnen  mit  die¬ 
ser  Software-Schnittstelle  die  billigste 
Lösung  für  ein  Interface. 

Zweifelsohne  sind  Software- Lösungen  von  Centronics- 
Schnittstellen  für  den  C  64  (mit  einfachem  Kabel  am  User-Port) 
nichts  unbekanntes.  Bedauerlicherweise  ist  jedoch  die  Ver¬ 
träglichkeit  mit  käuflichen  Programmen  nicht  immer  gewährlei¬ 
stet.  Viele  Textverarbeitungsprogramme  funktionieren  damit 
nicht.  Die  Software  für  die  Schnittstelle  wird  durch  diese  Pro¬ 
gramme  leider  meistens  überschrieben.  Dieses  Problem  läßt 
sich  eigentlich  nur  durch  das  feste  Einbinden  der  »Centronics- 
Software«  in  das  Betriebssystem  des  C  64  lösen.  Der  User- 
Port  des  C  64  stellt  dann  eine  vollwertige  Centronics-Schnitt- 
stelle  dar.  Auf  alle  Besonderheiten  des  C  64-Zeichensatzes 
konnte  aber  aus  Platzgründen  keine  Rücksicht  genommen 
werden.  Reverse  Zeichen,  Cursor-Steuerzeichen  und  Sekun¬ 
däradressen  werden,  bis  auf  die  Sekundäradresse  zur  Um- 
schaltung  zwischen  Groß-  und  Kleinschrift,  nicht  erkannt.  Da¬ 
für  wird  aber  bei  Verwendung  der  Sekundäradresse  7  nicht  nur 
eine  Groß-/Kleinschrift,  sondern  auch  eine  C  64/ASCII-Code- 
wandlung  durchgeführt. 

Centronics  hoch  drei 


In  dieser  Bauanleitung  werden  drei  Schnittstellen  vorge¬ 
stellt.  Zum  einen  ist  das  »C  64  Centron«  eine  Schnittstelle,  bei 
der  außer  einer  Verkürzung  der  Systemmeldungen  nichts  im 
Betriebssystem  verloren  geht  (auch  nicht  die  Kassettenrouti¬ 
nen).  Die  zweite  Schnittstelle  ist  dem  in  Ausgabe  4/85  veröf¬ 
fentlichten  Hypra-Perfekt  angepaßt.  Bei  der  dritten  Schnittstel¬ 
le  wurde  auf  größte  Flexibilität  geachtet.  Es  handelt  sich  dabei 
um  ein  frei  verschiebbares  Programm,  das  komfortabel  zu  be¬ 
dienen  ist.  Außer  der  dritten  Version  sind  alle  Schnittstellen  nur 
als  ROM-Version  benutzbar.  Das  Kernal-ROM  wird  dazu  durch 
ein  neues  ersetzt.  Die  dritte  Version  ist  eine  reine  Software- 
Lösung.  Das  Anschlußkabel,  welches  das  in  Tabelle  1  darge¬ 
stellte  Verdrahtungsschema  haben  muß,  ist  aber  in  allen  drei 
Fällen  gleich. 

Software-Schnittstelle  im 
Betriebssystem  integriert 

Das  größte  Hindernis  für  die  Verträglichkeit  mit  fertigen  Pro¬ 
grammen  ergibt  sich  aus  der  Tatsache,  daß  der  C  64  bereits 
eine  Druckerschnittstelle  eingebaut  hat:  den  seriellen  IEC- 
Bus.  Da  käufliche  Programme  in  der  Regel  diesen  Weg  benut¬ 
zen,  um  einen  Drucker  anzusprechen,  muß  eine  nachträgliche 
Lösung  Abhilfe  schaffen. 

C  64  Centron  (Listing  1)  arbeitet  mit  allen  Centronics- 
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Druckern  zusammen,  ohne  irgendeine  Funktion  des  C  64  zu 
beeinflussen.  Da  die  Schnittsteilen-Software  aus  den  oben  er¬ 
wähnten  Gründen  im  Kernal-ROM  selbst  liegen  muß,  war  zu¬ 
nächst  das  Platzproblem  zu  überwinden.  Einerseits  hat  Com- 
modore  fast  den  gesamten  Raum  für  das  Kernal  benutzt,  ande¬ 
rerseits  ist  der  C  64  aber  mit  ausgesprochen  platzaufwendi¬ 
gen  Einschalt-  und  Systemmeldungen  ausgestattet.  Doch 
welcher  C  64-Besitzer  weiß  nicht  schon  nach  recht  kurzer 
Zeit,  welchen  Namen  sein  Computer  hat.  Dementsprechend 
wurde  die  Einschaltmeldung  drastisch  verkürzt.  Der  C  64  mel¬ 
det  von  nun  an  mit 

*  C64  CENTRON  *  38911  BYTES  RAM 

Weiterhin  wurden  die  Meldungen  bei  Betrieb  von  Dätasette 
und  Floppy  vereinfacht.  Die  neuen  Meldungen  sind  in  Tabelle 
2  zusammengefaßt.  Als  nächste  Möglichkeit  bieten  sich  die 
Initialisierungsroutinen  des  Betriebssystems  an.  Hier  wird  vom 
C  64  nach  dem  Einschalten  untersucht,  ob  der  C  64  in  Europa 
oder  in  Amerika  zum  Einsatz  kommt.  Da  die  amerikanische  Ini¬ 
tialisierung  in  Europa  nicht  gebraucht  wird,  konnten  die  ent¬ 
sprechenden  Routinen  einschließlich  der  NTSC-Zeitkonstan- 
ten  für  die  RS232-Schnittstelle  aus  dem  Betriebssystem  ent¬ 
fernt  werden.  Damit  war  genug  freier  Platz  im  ROM  für  die 
Schnittsteilen-Software  geschaffen. 

Hohe  Verträglichkeit  einer  Schnittstelle  wird  durch  die  richti¬ 
ge  Einbindung  der  Änderungen  in  das  Original- Betriebssy¬ 
stem  erreicht.  Ziel  muß  es  dabei  sein,  die  neuen  Routinen  so 
spät  wie  möglich  in  den  normalen  Ablauf  der  seriellen  IEC- 
Busverbindungen  einzubinden.  Hier  wurde  folgender  Weg 
eingeschlagen; 

Nach  einem  Sprung  aus  der  LISTEN-Routine  ($EDOC)  wird 
in  der  neuen  Routine  beim  Ansprechen  der  Geräteadresse  4 
(Ol-  4,4  oder  OPEN  4,4,X)  ein  Flag  für  Centronics-Ausga- 
be  (Centflag)  gesetzt.  Der  Drucker  wird  durch  Senden  einer 
»0«  initialisiert.  Bei  anderen  Geräteadressen  wird  ein  Rück¬ 
sprung  in  die  normale  LISTEN-Routine  durchgeführt. 

In  der  SECLISTEN-Routine  ($EDB9)  wird  bei  gesetztem 
Centflag  überprüft,  ob  bei  der  File-Eröffnung  die  Sekundär¬ 
adresse  7  eingegeben  wurde.  Dementsprechend  wird  ein 
weiteres  Flag  (Secflag)  gesetzt.  Diese  beiden  Flags  werden  in 
der  eigentlichen  Ausgaberoutine,  die  in  die  lECOUT-Routine 
($ED40)  eingebunden  ist,  nacheinander  abgefragt.  Bei  nicht¬ 
gesetztem  Centflag  erfolgt  ein  Rücksprung  in  die  normale 
lECOUT-Routine.  Ist  Centflag  gesetzt,  wird  das  Secflag  abge¬ 
fragt  und  bei  gesetztem  Flag  eine  Codewandlung  von  C  64- 
Code  in  Standard -ASCII  vorgenommen.  Nach  Ausgabe  des 
ASCII-Zeichens  wird  wie  in  der  seriellen  Ausgabe  abgefragt, 
ob  das  ausgegebene  Zeichen  das  letzte  einer  Zeichenkette 
war.  Wenn  ja,  erfolgt  ein  Rücksprung  in  das  Normalbetriebssy¬ 
stem.  Nach  Ausgabe  des  letzten  Zeichens  werden  Centflag 
und  Secflag  gelöscht.  Beim  Schließen  des  Druckffiles 
(CLOSE4)  wird  »CARRIAGE  RETURN«  ausgegeben,  um 
eventuell  noch  im  Druckpuffer  befindliche  Zeichen  auszu¬ 
drucken.  Dies  geschieht  in  der  SECLISTEN-Routine. 

Eine  besondere  Einrichtung  dieser  Lösung  ist  eine  Be¬ 
nutzerschnittstelle.  Es  ist  nämlich  möglich,  vor  der  eigentli¬ 
chen  Ausgabe  eines  Zeichens  in  eigene  Routinen  zu  verzwei¬ 
gen.  Und  das  sogar  bei  käuflicher  Software.  Wichtige  Voraus¬ 
setzung  dafür  ist  lediglich,  daß  ein  RAM-Bereich  frei  bleibt  und 
nie  vom  Programm  beschrieben  wird.  Dies  kann  häufig  der 
Kassettenpuffer  ($033C-$03FB),  weniger  häufig  der  Bereich 
von  $C000  bis$CFFF  sein.  Im  freien  RAM-Bereich  muß  eine 
Routine  stehen,  die  indirekt  angesprochen  wird  und  nach  Aus¬ 
führung  in  die  Centronics-Software  zurückspringt.  So  können 
zum  Beispiel  Steuerzeichen  auch  von  Druckern  exotischer 
Herkunft  aus  Steuersignalen  für  Standarddrucker  (etwa  von 
Commodore  oder  Epson)  erzeugt  werden.  In  Listing  2  ist  eine 
Beispielroutine  abgedruckt,  die  bei  Übergabe  eines  Wertes 
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von  255  an  den  Drucker  einen  Textaus  der  Benutzerschnitt¬ 
stelle  ausdruckt. 

Die  Bedienung  der  Benutzerschnittstelle  läuft  nach  folgen¬ 
dem  Schema  ab:  Bei  gesetztem  Secflag  (also  bei  Sekundär¬ 
adresse  7)  wird  ein  Schlüsselbyte  in  Speicherstelle  SDCOC 
mit  dem  Wert  $DB  verglichen.  Ist  dieser  Wert  dort  nicht  vor¬ 
handen,  wird  die  Centronics-Ausgaberoutine  mit  Codewand¬ 
lung  fortgesetzt.  Wird  der  Wert  $DB  jedoch  gefunden  (weil  er 
vorher  hineingeschrieben  worden  ist),  springt  der  C  64  über 
einen  Zeiger  in  $0336/$0337  (LByte/HByte  der  Startadres¬ 
se  der  eigenen  Routine)  ins  selbstdefinierte  Programm,  führt 
die  programmierten  Funktionen  aus  und  kehrt  in  die  Ausgabe¬ 
routine  zurück. 

Weitere  Möglichkeiten,  etwa  umfangreiche  Codewandlung 
über  Tabellen  etc.,  können  dadurch  selbst  entwickelt  werden. 

Die  hier  vorgestellte  Schnittstelle  arbeitet  mit  allen  bisher 
getesteten  Programmen  zusammen,  einschließlich  Textomat, 
Textomat  plus  und  MAE-Assembler.  Leider  ist  es  nicht  mehr 
möglich,  gleichzeitig  bei  Anschluß  eines  Druckers  an  den 
User-Port  die  RS232-Schnittstelle  zu  betreiben.  Sämtliche 
RS232-Routinen  sind  jedoch  unverändert  vorhanden  und 
funktionstüchtig. 

Der  Basic-Lader  kopiert  das  Kernal  in  den  RAM-Bereich  von 
$6000  bis  $7 FFF  und  verändert  dort  das  Betriebssystem. 
Das  C  64  CENTRON-Betriebssystem  kann  nun  durch  Menü¬ 
wahl  entweder  auf  Diskette  abgespeichert  oder  mit  einem 
EPROM-Kopiergerät  in  ein  8-KByte-EPROM  gebrannt  wer¬ 
den.  Das  EPROM  wird  auf  einer  entsprechenden  Adapterplati¬ 
ne  oder  auch  auf  einer  Betriebssystem-Umschaltplatine  in  den 
Sockel  U4,  anstelle  des  normalen  Kernal-ROM,  eingesetzt. 


Hypra-Centronics 


Da  bei  der  Programmierung  des  Hypra-Perfekt  bereits  auf 
die  Kassetten routinen  verzichtet  wurde,  war  die  Platzsuche  im 
Betriebssystem  weniger  aufwendig.  Trotzdem  mußte  auch  hier 
etwas  getrickst  werden.  Die  Schnittstelle  fand  keinen  Platz 
mehr.  Wer  bereits  im  Besitz  eines  Hypra-Perfekt-Kernals  ist, 
sollte  Listing  3  eingeben  und  starten.  Das  neue  Betriebssy¬ 
stem  mit  Centronics-Schnittstelle  befindet  sich  dann  wie  ge¬ 
wohnt  ab  $6000  bis  $8000  im  Speicher.  In  den  REM-Zeilen 
am  Anfang  des  Listings  ist  angegeben,  welche  Änderungen 
vorgenommen  werden  müssen,  um  an  Stelle  des 
$6000-Bereichs  den  $8000-Bereich  als  Startadresse  zu  er¬ 
halten.  Diese  Änderungen  können  notwendig  werden,  wenn 
das  EPROM-Programmiergerät  nicht  mit  Programmen  im 
$6000-Bereich  arbeiten  kann. 


Softwarelösung  für  jedermann 

Im  Gegensatz  zu  den  beiden  bisher  beschriebenen  Versio¬ 
nen  arbeitet  die  Schnittstelle  aus  Listing  4  im  RAM-Speicher 
des  C  64.  Dafür  bietet  sie  aber  den  Vorteil,  völlig  frei  ver¬ 
schiebbar  zu  sein.  Einige  Bereiche,  in  denen  die  Schnittstelle 
keinen  Platz  findet,  wurden  von  vorneherein  ausgeschlossen. 
Eine  Fehlbedienung  ist  somit  fast  unmöglich.  Nach  dem  Star¬ 
ten  des  Programms  meldet  sich  ein  Menü,  mittels  dessen  Sie 
den  Speicherbereich,  in  dem  die  Schnittstelle  arbeiten  soll, 
eingeben  können.  Es  ist  dabei  belanglos,  ob  Sie  den  Spei¬ 
cherbereich  in  dezimaler  oder  hexadezimaler  Form  (zum  Bei¬ 
spiel  $C000)  bestimmen.  Das  Programm  rechnet  die  Adres¬ 
sen  um  und  informiert  Sie  anschließend  darüber,  mit  weichem 
SYS- Befehl  (der  ja  vom  Speicherbereich  abhängt)  die  Schnitt¬ 
stelle  immer  wieder  neu  initialisiert  werden  kann. 

Wir  hoffen,  Ihnen  mit  diesen  drei  Lösungen  das  Mittel  an  die 
Hand  zu  geben,  mit  dem  Sie  jeden  Drucker  mit  Centronics- 
Schnittstelle  an  den  C  64  anschließen  können.  Es  sei  noch¬ 


mals  darauf  hingewiesen,  daß  Listing  1  und  Listing  3,  aus¬ 
schließlich  für  die  Verwendung  im  Kernal-ROM  vorgesehen 
sind.  Dazu  ist  es  notwendig,  den  Computer  zu  öffnen  (Ach¬ 
tung!  Garantieverlust)  und  das  Kernal-ROM  durch  ein 
2764-EPROM  zu  ersetzen.  Bitte  beachten  Sie,  daß  dieser 
EPROM-Typ  nur  mit  einer  Adapterplatine  (Bild  1  zeigt,  welche 
Pins  von  Sockel  und  EPROM  miteinander  zu  verbinden  sind) 
in  den  U4-Steckplatz  eingesetzt  werden  darf.  Ohne  diesen 
Adapter  wird  der  C  64  wahrscheinlich  beschädigt. 

Wer  möchte,  kann  sein  neues  Betriebssystem  natürlich 
auch  im  RAM  unter  dem  ROM  ($E0000  bis  $FFFF)  auspro¬ 
bieren.  In  Listing  1  ist  dafür  eine  eigene  Funktion  im  Menü  vor¬ 
gesehen.  Bei  Listing  4  brauchen  Sie  sich  keine  Gedanken  um 
EPROMs  und  Steckplätze  zu  machen.  Sie  funktioniert  ohne 
jede  Änderung  mit  jedem  C  64.  Leider  muß  sie  jedesmal  vor 
dem  Arbeiten  neu  geladen  werden. 

(W.  Förstenrath,  M.  Braun,  A.  Wängler/hm) 
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Die  Pins  des  28poligen  Sockels  sind  fett  gedruckt 


Pin  1  eines  jeden  Sockels  ist  links  von  der  Kerbe,  Pin  24 
beziehungsweise  28  ist  rechts  davon. 

Bild  1.  Das  Verbindungsschema  für  den  Adaptersockel 


Drucker 

Pin-Nummer  Signal 

Signal 

User-Port 

Pin-Nummer 

1  STROBE 

PA2 

M 

2  DATA  1 

PBO 

C 

3  DATA  2 

PB1 

D 

4  DATA  3 

PB2 

E 

5  DATA  4 

PB3 

F 

6  DATA  5 

PB4 

H 

7  DATA  6 

PB5 

J 

8  DATA  7 

PB6 

K 

9  DATA  8 

PB7 

L 

10  ACKNLG 

FLAG  2 

B 

16  GND 

GND 

A 

Tabelle  1:  Verdrahtungsschema  der  Centronics- 
Schnittstelle  am  User-Port  (Stecker  für  User-Port:  TRW 
251-12-50-170;  für  Drucker:  36poliger  Amphenol-Stecker; 
Kabel:  Flach-  oder  Rundkabel  bis  1,5  m) 
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Geänderte  Systemmeldungen 
bisher 

geändert 

searching  for 

sr 

press  play  on  tape 

Pl 

press  record  &  play  on  tape 

rc 

loading 

1 

saving 

s 

verifying 

V 

found 

entfällt 

ok 

+ 

Tabelle  2.  Durch  Verkürzung  der  Systemmeldungen 

wurde  bei  Listing  1  Platz  geschaffen 

0  REM  ***■*-*•*•*■**•■****-*•**■■*■**■)<-•*■**■•*■*■*■•*•*•***•* 

<207> 

1  REM  * 

* 

<228  > 

2  REM  *  C64  CENTRON 

* 

<  1 7 1  > 

3  REM  * 

* 

<230> 

4  REM  * 

VON 

* 

<218  > 

5  REM  *  WOLFGANG  FASTENRATH 

* 

<045> 

6  REM  * 

UND 

* 

<  208  > 

7  REM  *  ELMAR  SCHULTE 

* 

<  1 1 5  > 

B  REM  * 

* 

< 235 > 

9  REM  *  TEL.  02246/7132 

* 

<249 > 

10 

REM  * 

* 

< 237 > 

11 

REM  *  LOHMAR,  APRIL  1985 

* 

<044> 

12 

REM  * 

* 

<239> 

13 

REM  •**■**■»**•**■■**-*•*■**■*-****•******■****■*-* 

<220  > 

14 

POKE  55,0: POKE 

56, 64: RESTORE 

<003> 

15 

0F=16384: GOSUB 

1000: SYS  16384 

<  1 94  > 

20 

0F=25641 : GOSUB 

10O0 

<229  > 

30 

0F=25661: GOSUB 

1000 

<241  > 

40 

0F=28861: GOSUB 

1000 

<000> 

50 

60 

70 

80 

OF=30131: GOSUB 
OF=30 140: GOSUB 
OF=30 162: GOSUB 
OF=30168: GOSUB 

2000  mm 

2000 

2000 

<250> 

<  004  > 

<  0 1 8  > 

<  034  > 

2000 

90 

OF=30355: GOSUB 

2000 

<  042  > 

100 

□F=30489: GOSUB 

2000 

<060> 

110 

OF=30544: GOSUB 

2000 

<062> 

120 

OF=30748: GOSUB 

2000 

<078> 

130 

OF=30761 : GOSUB 

2000 

<083> 

140 

OF=30781: GOSUB 

2000 

<095> 

150 

OF=32221: GOSUB 

1000 

<095> 

160 

OF=32450: GOSUB 

1000 

<  1 09  > 

170 

0F=27969: GOSUB 

3000 

<  140> 

180 

OF=27940: GOSUB 

3000 

<  139> 

190 

OF=28091: GOSUB 

3000 

<  147> 

200 

0F=25695: GOSUB 

10S0 

<  1 62  > 

210 

OF=25783: GOSUB 

1000 

<  170> 

220 

0F=288S4: GOSUB 

1000 

<  1 85  > 

300  F'R I NT "  CCLR ,  6R I GHT , 4DQWN X 1  >  ABSPEICHERN  <060 > 
310  PRINT" <3D0WN,6RIGHT><2>  TESTOPTIDN  <152> 
315  PRINT" C3D0WN,6RIGHT}<3>  ENDE  <161> 
320  PR I NT " C 4DÜWN , 6R I GHT >B I TTE  WAEHLEN  <1/2/ 


3  >  <  2 1 6  > 

340  GET  A*:IF  A*=”"THEN  340  <185> 

345  IF  A$=" 1 " THEN  350  <176> 

347  IF  A*="2"THEN  400  <175> 

348  IF  A*="3"THEN  END  <157> 

349  IF  A*<>"l"OR  A*<>"2"DR  A*<>"3"THEN  340  <068> 

350  PRINT" CCLR, DQWN,RIGHT> ' C64  CENTRON '  (BE 

REICH  *6000  -  *8000)"  <087 > 

360  PRINT" CDOWN,RIGHT}WIRD  AUF  DISKETTE  GES 

PEICHERT"  <022> 

370  SYS  16421: END  <201 > 

403  PÜKE  16388,96: PUKh  16393,224: POKE  16398 

, 0: POKE  16401, 0:POKE  16416, 0:SYS  16384  <214> 

410  POKE  16388, 160: POKE  16393, 160: POKE  1639 


8,0: POKE  16401,0: POKE  16416, 192: SYS  163 


34 


<1  15> 


Listing  1.  »C  64  Centron«.  Kernal-Centronics-Schnittstelle 
ohne  Funktionsverlust. 

Beachten  Sie  bitte  die  Eingabehinweise  auf  Seite  77. 


420  POKE  1,53  <001 > 

430  PRINT" CCLR, DOWN, RI GHT >B AS IC  UND  C64  CEN 
TRON  BEFINDEN  SICH” : PRINT" JETZT  IM  RAM. 

"  <010> 

440  PRINT" €DDWN, RIGHT JDIE  FUNKTION  KANN  GET 

ESTET  WERDEN."  <132> 

450  END  <  067  > 

1000  1=0  <022 > 

1010  READ  A: IF  A<0  THEN  RETURN  <219> 

1020  POKE  uF+ I,A:T=T+1: GOTO  1010  <105> 

1030  END  < 138> 

2B00  READ  A: POKE  DF , A: READ  A:POKE  OF+l,A:RE 

TURN  <234  > 

3000  READ  A : POKE  OF , A: READ  A:POKE  OF+l,A:RE 

AD  A: POKE  OF+2 , A: RETURN  <135> 

31999  DATA  120,160,0,169,224,141,15,64,169, 

96,141,18,64, 185,0,255, 153,0,255,200  <019> 

32000  DATA  208,247,238,15,64,238,18,64  <072> 

32001  DATA  173,13,64,201,128,208,234,88,96, 

169,0,133,251,169  <138> 

32002  DATA  96,133,252,169,1,162,3,160,1,32, 

186,255, 169, 13,162,73, 160,64,32,189  <254> 

32003  DATA  255,169,251,162,0,160,128,32,216 

,255 , 96 , 67 , 54 , 52,32 , 67 , 69 , 78 ,84 , 82  <  226  > 

32004  DATA  79,78,47,79,0,-55,169,194,160,25 

4,-55,169,234,160,253,-55,13,163  <119> 

32005  DATA  13, 83, B2, 160, 160,80,204,82, 195, 1 

3,204,13,211,160, 13,214,13,160,13,43  <001 > 

32006  DATA  141,-55,160,2,160,6,160,11,160,1 

6,160,13,160,0,160,18,160,7,160,20  <141> 

32007  DATA  160,9,169,37,141,4,220,169,64,14 

1,5,220,76,110,255,32,66,89  <U3> 

32008  DATA  84,69,83,32,82,65,77,13,0,-55,14 

7, 13,32,42,32,67,54,52,32,67,69,78  <218> 

32009  DATA  84,82,79,78,32,42,32,0,-55,76,95 

,228,76,212,240,32,0,241 ,44,12,221  <192> 


32010  DATA  48 , 6 , 32 ,151, 238 , 76 , 68  ^237 , 165, 14 

9,44,12,221 ,80,26,72,173,12,220,201  <248  > 

32011  DATA  219,208,3,108,54,3,104,201,65,14 

4,10,201 ,192,144,4,41,127,208,2,9,32  <01 1> 

32™'  "  DATA  32,183,228,24,36,163,16,5,169,0, 

141 ,12,221 , B8,96, 169,13,32,183,228,20 
B  <  150> 

32013  DATA  242,-55,141,1,221,173,13,221,173 
,0,221,41,251,141,0,221,9,4, 141,0,221  <028 > 

32014  DATA  169,16,44,13,221,240,251,96,-55, 

201 .36.240.14.173.12.221.41 .127.141  <225> 

32015  DATA  12,221,32,151,238,76,39,237,169, 

255,141,3,221,44, 12,221,48,13,173,12  <033> 

32016  DATA  221,9,128,141,12,221,169,0,32,18 

3,228,24,88,96,120,44,12,221 ,48,5,88  <045> 

32017  DATA  32,54,237,96,72,41,31,201,7,8,17 

3.12.221.40.208.3.9.64.44.41.191.141  <031 > 
32010  DATA  12,221,104,41,240,201,224,208,21 

5,76, 154, 22B, -55  <065> 

Listing  1.  »C  64  Centron«  (Schluß) 


10  POKE  56332,219: REM  SETZT  SCHLUESSEL 
20  POKE  822,60: POKE  823,3: REM  SETZT  ZEIGER 
30  1=0: RESTORE 
40  READ  A: IF  A<0  THEN  100 
5ß  POKE  828+1 ,A: 1=1+1 
60  GOTO  40 

100  PRINT" CCLR , 7D0WN , 7RIGHT3BENUTZERSCHNIT 
TSTELLE  AKTIV! ! ! " 

110  END 

32000  DATA  104,201,255,240,4,72,76,124,228 
,72,152,72,160,0,185,91,3,32, 183,228 

32001  DATA  200,192,37,208,245,104,168,104, 

76.142. 228 .67.54.52.32.67.69.78.84.8 
2 

32002  DATA  79,78,32,77,73,84,32,66,69,70,8 

5.84.90.69.82.83.67.72.78.73.84.84.8 

32003  DATA  84,69,76,76,69,-55 


<202> 

<207> 

<  0 1 5  > 
<01 7> 
<036> 
<041  > 

<077> 

<238> 

<22B> 


<062> 


<  1 2 1  > 
<  154> 


Listing  2.  Beispiel  zur  benutzerdefinierten 
Schnittstelle  in  »C  64  Centron« 
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1  REM  UM  IN  DEN  BEREICH  AB  $8000  ■■  <001  > 


2  REM  ZU  VERSCHIEBEN  :  KJ?.]  <168> 

3  REM  ■■  <146> 

4  REM  10  P0KE56 , 1 28 . .  <177> 

5  REM  <148> 

6  REM  20  0F=24576 _  <091> 

7  REM  60  IF  PR03153...  <253> 

8  REM  95  DATA  0,160,160...  <095> 

9  REM  **■*■*■****■**-*******•*#•*•**•***-**#■*#■*  <174> 

10  POKE  56,96:  F'OKE  55,0:  CLR  <020> 

20  0F=32768  :  RESTORE  <043> 


30  PRINT" CCLR>READ INS  MC-PROGRAM. PRINT 


":FRINT: PRINT: END  <065> 
1000  REM  BLOCK  1  $E4B8-*E4C8  <U4> 
1010  DATA  50552,16,2331  <009> 
1020  DATA  32,189,255,165,185,234,234,201,7 

,240,4,169,2,133,185,96  <047> 
1030  REM  BLOCK  2  $FC41-*FCCF  <171> 
1040  DATA  64577,143,16117  <148> 
1050  DATA  165,186,201,4,240,3,76,74,243,16 

9,1,162,104,160,252  <116> 
1060  DATA  32,184,228,32,74,243,176,8,165,2 

,41,253,133,2,24  <236> 
1070  DATA  96,165,2,9,2,133,2,24,96,13,72,1 


:  PR=0 

40  FOR  N=828  TO  853 
50  READ  D: POKE  N,D:PR=PR+D 
55  NEXT 

60  IF  PR03121  THEN  PRINT"  FEHLER  IN  &C.-JAT 
AS" : STOP 

70  PRINT" VERSCHIEBE  $E000-$FFFF  NACH  $6000 
"SPRINT 
80  SYS  828 

90  DATA  169,0, 160,224, 133,95, 132,96, 169,0, 
16B, 133,90, 132,91, 169 

95  DATA  0,160,128,133,88,132,89,76,191,163 
100  BL=1 
110  PR-0 

120  READ  A,E,P  :PRINT"BLOCK  :  "BL; 

130  FOR  N=A  TO  A+E-l 

140  READ  D  : POKE  N-OF,D  : PR=PR+D 

150  NEXT 

160  IF  PR=P  THEN  PRINT"  O.K." : GOTO  200 
170  PRINT” PRUEFSUMME  FALSCH!  "PR"  STATT  "P 
180  PRINT: PR INT "TASTE  DRUECKEN" : PRINT 
190  POKE  198,0: WAIT  19B,1:P0KE  198,0 
200  BL=BL+1 : IF  BL<=4  GOTO  110 
210  PR INT: PR INT "ZEIGER  AUF  AUSGABE  BERICHT 
IGEN" 

220  POKE  64822— OF ,65: POKE  64823-0F,252  : RE 
M  OPEN-VEKTOR 

230  POKE  6482B-0F, 167: POKE  64829— OF , 252 : RE 
M  CHKOUT-VEKTOR 

240  POKE  64834-OF, 105: POKE  64835-OF , 252: RE 
M  CHROUT-VEKTDR 

900  PRINT: PR INT "AENDERUNGEN  DURCHGEFUEHRT. 


<  1 20  > 

<  1 43  > 

<  170> 

<  1B5> 

<0B9> 

<060> 

<144> 

<  1 37  > 

<  128> 
<213> 
<242  > 

<  178> 
<244> 
<068> 
<024> 
<158> 
<040> 
<009> 

<  237  > 

<  1 20  > 


65,154,201,4  <045> 

1080  DATA  240,3,76,205,241,165,2,41,2,208, 

4.165.154.208.243  <039> 
1090  DATA  173,13,221,41,16,234,234,165,2,4 

1,1,240,23,173,24  <035> 

1100  DATA  208,41,2,234,234,104,201,64,144, 

10,201,192,144,4,41  <139> 

1110  DATA  127,208,2,9,32,72,104,76,172,243 

,24,96,32,15,243  <032> 

1120  DATA  240,3,76,1,247,32,31,243,165,186 

,201,4,240,3,76  <237> 

1130  DATA  91,242,165,2,41,2,240,247,165,2, 

41,254,133,2,165  <038> 

1140  DATA  185,41,7,201,7,76,194,254  <217> 

1150  REM  BL0CK3  $FEC4-$FED3  <040> 

1160  DATA  65218,18,1960  <166> 

1170  DATA  208,6,169,1,5,2,133,2,169,255,14 

1.3.221.169.4.76.153.243  <227> 

1180  REM  BLDCK4  $F399-$F3C0  <026> 

1190  DATA  62361,47,5538  <199> 

1200  DATA  13,0,221,141,0,221,173,2,221,9,4 

,141,2,221,169  <239> 

1210  DATA  4,76,117,242,141,1,221,173,0,221 


<064> 

<048> 

3<021> 

<024> 


,41,251,141,0,221  <143> 

1220  DATA  234,234,234,9,4,141,0,221,173,13 

,221,41,16,240,249,24,96  <008> 

1230  REM  ENDE  <125> 

Listing  3.  Centronics-Schnittstelle  in  Hypra-Perfekt  einge¬ 
bunden 


10  GOTO  90 

20  REM  HEX  ->  DEZ 

30  SA$=R I GHT$ ( " < 4SPACE J " +S A$ , 4 ) 

40  SA=0:  FOR  1=1  TO  LEN  (SA$)  :S0=ASC  <riID$  (SA 
$  ,  I  ,  1 )  ) : SA=16*SA+S0-4Q+ (S0 >64) *7: NEXT 
50  RETURN 

60  REM  ADRESSE  ->  LOW, HI GH 
70  SH=INT (S4/256) : SL=S4— 256*SH 
80  RETURN 

90  PRINT  CHR$  (14)  ;  "  <CLR  , 2DQWN  ,  7SPACE3-C— 64 
£ARALLEL  .PROGRAMM" 

100  PRINT"  <7SPACE> - " 

110  PRINT : 

120  INPUT  "START ADRESSE:  " ; SA$: SA=VAL ( SA$) 
130  IF  LEFT$(SA$,1)="$"THEN  GOSUB  30 
140  READ  EN 
150  FOR  1=1  TO  EN 

160  READ  A,B:IF  SA+187>=A  AND  SA<=B  THEN  R 
UN 

170  NEXT 

180  PR  INT  :PRINT  "EINLESEN  DES  HC- .PROGRAMMES 
": PRINT 

190  S 1 =S A+58 : S2=SA+ 1 22 : S3=SA+37 

200  FOR  I  =  SA  TO  SA+187 

210  READ  DA 

220  POKE  I , DA 

230  NEXT  I 

240  S4=S2  :  GOSUB  70 
250  POKE  SA+2 , SH : POKE  SA+4,SL 
260  S4=S1  : GOSUB  70 
270  POKE  S A+ 1 2 , SH : POKE  SA+14,SL 
272  S4=S3  : GOSUB  70 
274  POKE  SA+28 , SL : POKE  SA+29,SH 
200  PRINT : PRINT”  HI EDERE INSCHALTEN  NACH  ’  SX 
0.P7.R.E  5T0.R-E  '  " 

290  PRINT :  F'RINT"MIT  -C6SPACE}  'SYS  ";SA;"'" 


<252> 
<21 4> 
<168> 

<  195> 

<  1 92  > 

<  1 23  > 
<01 1> 
<222> 

<048> 

<031  > 
<065> 
<209> 
< 236  > 

<  166> 
<  122> 

<056> 

<044> 


<032> 

<  253  > 
<090> 

<  222  > 
<109> 

<  177  > 
<220> 

<  2 1 4  > 
<240> 
<077> 
<254> 
<094> 

<  1 84> 
<0BB> 


300  SYS  SA  <095> 

310  END  <  1 83  > 

320  REM"  GESPERRTE  JEREICHE  <090> 

330  DATA  4  <002> 

340  DATA  0,827,1023,2039,40960,49131,53248 

,65535  < 1 34 > 

350  REM  MASCHINENPROGRAMM  <233> 

360  DATA  120,169,192,160,122,141,  33,  3,1 

40,  32,  3,169,192,160,  58,141  <173> 

370  DATA  39,  3,140,  38,  3,  SB,  32,204,25 

5,160,  20,185,  37,192,  32,210  <248> 

380  DATA  255,136,  16,247,  96,  13,  86,  73, 

84,  75,  65,  32,  84,  82,  79,  80  <207> 

390  DATA  45,  76,  69,  76,  76,  65,  82,  65,  8 

0,  13,  72,165,154,201,  4,240  <197> 

400  DATA  3,  76,205,241,173,  13,221,165, 

2,  41,  1,240,  16,104,201,  64  <253> 

410  DATA  144,  10,201,192,144,  4,  41,127,2 

08,  2,  9,  32,  72,104,141,  1  <214> 

420  DATA  221,173,  0,221,  41,251,141,  0,2 

21,234,234,234,  9,  4,141,  0  <007> 

430  DATA  221,173,  13,221,  41,  16,240,249, 

24,  96,  32,  15,243,240,  3,  76  <095> 

440  DATA  1,247,  32,  31,243,165,186,201, 

4,240,  3,  76,  91,242,165,  2  <008> 

450  DATA  41,254,133,  2,165,185,  41,  7,20 

1,  7,208,  6,169,  1,  5,  2  <075> 

460  DATA  133,  2,169,255,141,  3,221,169, 

4,  13,  0,221,141,  0,221,169  <063> 

470  DATA  4,  13,  2,221,141,  2,221,169, 

4,  76,117,242  <108> 


Listing  4.  Eine  frei  verschiebbare  Centronics-Schnittstelle 
als  Softwarelösung 
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File- 

Compactor 

Wozu  unnötigen  Ballast  auf  Diskette 
speichern  und  laden?  Der  File- 
Compactor  kürzt  fast  jedes  Programm 
—  bis  zu  50  Prozent.  Einzige  Voraus¬ 
setzung:  mindestens  eine  Basic-Zeila 

Fast  alle  Programme,  egal  ob  Basic  oder  Assembler,  weisen 
Folgen  von  gleichen  Zeichen  auf.  Denken  Sie  nur  an  Grafikbil¬ 
der,  die  in  einem  Programm  enthalten  sein  könnten.  Diese  Zei¬ 
chenfolgen  lassen  sich  kürzen. 

Man  geht  dazu  folgendermaßen  vor:  Man  durchsucht  das 
ganze  Programm  nach  Folgen  von  gleichen  Bytes.  Wurde  eine 
Folge  gefunden,  wird  ein  Merkzeichen  (in  diesem  Fall  $bf  oder 
$cf)  an  die  momentane  Stelle  geschrieben.  Danach  der  Zei¬ 
chencode  und  die  Anzahl  der  Zeichen.  Verwechslungen  mit 
eventuell  vorkommenden  $bf-  oder  $cf-Codes  können  da¬ 
durch  ausgeschlossen  werden,  indem  man  vor  diese  Codes 
noch  mal  den  Code  und  für  die  Anzahl  eine  »1«  schreibt. 

Damit  die  gekürzte  Version  lauffähig  ist,  wird  vor  das  eigentli¬ 
che  Programm  noch  ein  »Entpacker«  gesetzt,  der  auch  mit  ab¬ 
gespeichert  werden  muß.  Von  jedem  Programm  bleibt  nach 
dem  Komprimieren  nur  noch  eine  Zeile  mit  einem  SYS-Befehl 
(zum  Start  des  Entpackers)  übrig. 

Tippen  Sie  RUN  ein,  wird  vor  dem  eigentlichen  Programm¬ 
start  das  ursprüngliche  Programm  aus  den  komprimierten  Da¬ 
ten  wieder  zusammengesetzt;  erkenntlich  an  der  dunkelblau¬ 
en  Rahmenfarbe.  Das  komprimierte  Programm  wird  dazu  an 
das  Speicherende  verschoben  und  dann  Byte  für  Byte  wieder 
an  die  Stelle  gesetzt,  wo  es  vor  der  Behandlung  mit  dem  File- 
Compactor  stand.  Stoppen  Sie  das  Basic-Programm  nach 
dem  Entpacken  mit  STOP  oder  STOP/RESTORE,  sehen  Sie 
wieder  das  normale  Basic-Programm  in  seiner  vollen  Länge. 


Spart  Platz  auf  Disketten 


Ein  Beispiel:  Bestimmte  Versionen  des  Spiels  »Apocalypse« 
sind  153  Blocks  lang.  Nach  der  Behandlung  mit  dem  File- 
Compactor  aber  nur  noch  83  Blocks,  also  um  46  Prozent  kür¬ 
zer. 

Tips  zur  Benutzung 

1.  File-Compactor  mit  dem  MSE  eingeben  und  abspeichern. 

2.  Das  so  gespeicherte  Programm  mit  LOAD”FILE-COMPAC- 
TOR”,8  laden  und  mit  RUN  starten. 

3.  Diskette  mit  dem  zu  kürzenden  Programm  einlegen. 

4.  Namen  des  Programms  eingeben  und  RETURN  drücken. 
Das  Programm  wird  geladen. 

5.  Diskette  mit  genügend  freiem  Platz  einlegen. 

6.  Namen  des  gekürzten  Programmes  eingeben  und  RETURN 
drücken.  Die  gekürzte  Version  wird  gespeichert. 

Wollen  Sie  ein  Maschinenprogramm  kürzen,  das  mit  LOAD 
”name”,8,1  geladen  und  mit  SYS  gestartet  wird,  müssen  Sie 
das  Programm  erst  mit  dem  Basic-Start-Generator  auf  Seite  74 
»vorbehandeln«.  (Marcus  Breiing/hm) 

Listing  zum  File-Compactor.  Es  muß  mit  dem  MSE 
eingegeben  werden.  Beachten  Sie  bitte  dazu  die 
Eingabehinweise  auf  Seite  77. 
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Elektronischer  Merkzettel 

Wenn  Sie  mit  zwei  unabhängigen  Bildschirmen  arbeiten  wollen,  dann  werden 
Sie  von  diesem  Programm  begeistert  sein. 


10  REM  *»**»***»*»»»»»»*»»•»»*»»»«»*«  <091  > 

20  REM  **  MERK-ZETTEL  »*  <127> 

21  REM  **  -  *«  <163> 

22  REM  **  WRITTEN  BY  GEORG  KRAMER  *»  <075> 

23  REM  *»  4783  ANROECHTE  »*  <189> 

24  REM  **  **  <175> 

25  REM  HH***»*)C-K******‘K-lf*«»M«*»*!MM»**  <106> 

26  :  <0B4> 

30  PRINT  CHR* ( 147) : PRINT  mhm  <062> 

32  REM  **•»  COPYRIGHT  ****  <  152> 

35  PRINT  SFC<  12)  "U C.CJ.C.CC c r. J rjcj.!"  HQ'.  ']  <1B3> 

36  PRINT  SPC(12) "2  MERK-ZETTEL  2"  <235> 

37  PRINT  SPC  (12 )  " .JC.CC.T.CC.C.C.C.C.C.C.CJ."  <176> 

38  PRINT: PRINT  SPC (8) "WRITTEN  BY  GEORG  KRA 

MER"  <219I> 

39  PRINT : PRINT  SPC(13)"(C>  16.2.1985"  <106> 

40  PRINT :  FÜR  1  =  1  TO  40:  PRINT"-"; :  NEXT  <235> 

50  PRINT  SPC (41) "ZWISCHENSPEICHERN  DER  BIL 

DSCHIRMSEITE "  <133> 

55  PRINT: PRINT  SPC (10) "NEUE  T ASTENFUNKT ION 

:  <D0WN,21LEFT5 - "  <139> 

60  PRINT : PRINT  SPC (11)" (RVSON, SPACE >F1 (SPA 

CE, RVOFF, SPACE)-  BILD  WECHSEL"  <139> 

80  PRINT :  PRINT  SPC  (34)  "«  TASTE  >>"  <173> 


81  POKE  198,0  <230> 

82  GET  A*:IF  A1=""THEN  82  <137> 

83  PRINT  CHR* (147) SPC (52) "ETWAS  GEDULT..."  <237> 

84  REM  *»*  DATEN  LADEN  »»»  <175> 

85  FOR  1=49152  TO  49415  <129> 

86  READ  A: POKE  I , A: X=X+A: NEXT  <232> 

87  IF  X< >30639  THEN  PRINT"DATA  FEHLER  !":E 

ND  <217> 

88  POKE  49152*214, 0:REM  *  SCHRIFTFARBE  +  <035> 

89  SYS  49152: REM  PRG. -START  <151> 

90  PRINT" <CLR)“:PRINT  SPC ( 44 ) " (RVSON , 8SPAC 

El PROGRAMM  AKTIVIERT<5SPACE>"  <066> 

91  PRINT  SPC(4)“{RVSON,11SPACE5*C000-SC107 

<9SPACE>"  <112> 

92  PRINT  SPC(4)"{RVS0N,3SPACEJENDE  MIT  RUN 

/  STOP-RESTORE  -C3SPACE  >  "  <015> 

93  END  <221 > 

99  REM  **»»  MASCHINENPROGRAMM  «*«*  <061 > 

100  DATA  76,251,192,162,0,134,251,162,194, 

134,252, 162,232,134,253, 162, 197  <069> 

101  DATA  134,254,162,0,134,182,162,199,134 

, 183, 160,0, 177,251 ,145,182, 165,252  <219> 

102  DATA  197,254,240,22,165,251,201,255,24 

0,24,230,251,165, 182,201,255,240  <103> 


103  DATA  28,230,182,169,0,201,0,240,224,16 

3.251.197.253.208.228.240.24.169  <114> 

104  DATA  235,133,251,230,232,169,0,201,0,2 

40.220. 169.235. 133. 182.230.183. 169  <204> 

105  DATA  0,201,0,240,216,96,165,203,201,4, 

240,4,76,49,234,96,169,0, 141,4,192  <199> 

106  DATA  169,4, 141 ,8, 192, 169,0, 141 , 12, 192, 

169,8,141, 16,192,169,0,141,20, 192  <169> 

107  DATA  169,194,141,24,192,32,3,192,169,0 

,141,4,192,169,199,141,8,192,169  <147> 

108  DATA  232,141,12,192,169,202,141,16,192 

,169,0,141,20,192,169,4,141,24,192  <208> 

109  DATA  32,3,192,169,0,141,4,192,169,194, 

141.8.192.169.232.141.12. 192.169  <134> 

110  DATA  197,141,16,192,169,0,141,20,192,1 

69,199,141 ,24,192,32,3, 192,169,0  <134> 

111  DATA  133,251,169,216,133,232,160,0,169 

, t ,  143,231 ,230,251 ,208,250, 166,252  <212> 

112  DATA  224,218,240,8,230,252,162,0,224,0 

,240,232,230,252, 160,0, 145,251 ,200  <177> 

113  DATA  192,232,208,249,76,49,234,96,234, 

120,169,94,141 ,20,3,169,192,141  <100> 

114  DATA  21,3,88,96  <238> 


Llsting  »Merk-Zettel«  für 
den  C  64.  Beachten  Sie 
bitte  die  Eingabehinweise 
auf  Seite  77. 

Das  Programm  »Merkzet¬ 
tel«  ist  ganz  in  Maschinen¬ 
sprache  geschrieben.  Es 
entstand  aus  folgendem  Pro¬ 
blem:  Während  man  ein  Pro¬ 
gramm  schreibt,  will  man  No¬ 
tizen  machen,  die  man  häufig 
auf  einem  Zettel  notiert.  Hat 
man  dann  erst  einmal  einige 
Zettel  vollgeschrieben,  findet 
man  meistens  die  erste  Notiz 
nicht  gleich  wieder.  Das  ko¬ 
stet  Zeit  und  beansprucht  die 
Nerven.  Dieses  Programm 
ermöglicht  nun  das  Führen  ei¬ 
nes  Notizblattes  direkt  mit 
dem  Computer.  Durch  Drük- 
ken  der  Funktionstaste  Fl 
wird  der  Inhalt  des  Bild¬ 
schirms  mit  dem  Inhalt  des 
Speichers  vertauscht.  Sie 
schreiben  also  Ihre  Notizen 
auf  den  Bildschirm,  drücken 
die  Taste  Fl  und  schon  ha¬ 
ben  Sie  die  Information  ge¬ 
speichert.  Wenn  Sie  sie  wie¬ 
der  brauchen,  drücken  Sie 
einfach  erneut  die  Taste  Fl, 
und  auf  dem  Bildschirm  er¬ 
scheinen  die  vorher  abgeleg¬ 
ten  Informationen,  in  einer 
bestimmten  Farbe.  Diese  Far¬ 
be  können  Sie  in  der  Zeile  88 
ändern,  indem  Sie  einen  an¬ 
deren  Wert  als  Null  in  das  Re¬ 
gister  49366  POKEn. 

Das  Programm  belegt  den 
Bereich  von  $C000  bis 
$CODB.  Außerdem  werden 
die  nachfolgenden  2  KByte 
noch  zur  Zwischenspeiche¬ 
rung  benötigt. 

(Georg  Kramer/ah) 
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C  16 


»Fenster«- 
Befehle 
für  den  C 16 

Dieses  Programm  stellt  den  im  C  16- 
Basic  leider  nicht  vorhandenen  »Win- 
dow«-Befehl  zur  Verfügung  und  macht 
Schluß  mit  dem  umständlichen  Han¬ 
tieren  mit  den  ESC-Funktionen. 

Wer  im  Befehlssatz  des  Basic  3.5  nach  dem  Befehl  »Win¬ 
dow«  sucht,  wird  nicht  fündig.  Die  groß  angekündigte  moderne 
Window-Technik  läßt  doch  zu  wünschen  übrig.  Ein  Window,  al¬ 
so  ein  Bildschirmfenster,  kann  nur  mit  Hilfe  der  ESC-Taste  defi¬ 
niert  werden. 

So  muß  man,  um  ein  Window  zu  setzen,  mit  dem  Cursor  an 
die  linke  obere  Ecke  des  gewünschten  Bildschirmfensters  fah¬ 
ren  und  die  Tasten  ESC  und  T  drücken.  Die  rechte  untere  Ecke 
des  Fensters  wird  ebenfalls  mit  dem  Cursor  gewählt  und  mit 
ESC  und  B  gesetzt.  Erst  jetzt  ist  das  Fenster  definiert. 

Im  Direktmodus  ist  dieser  Aufwand  nicht  hinderlich,  sondern 
bringt  eher  Vorteile,  da  kein  Befehl  »WINDOW«  am  Bildschirm 
erscheint.  Im  laufenden  Programm  ist  es  jedoch  sehr  umständ¬ 
lich,  ein  Fenster  zu  generieren.  Es  sind  sehr  viele  PRINT-An- 
weisungen  nötig. 

Da  die  Window-Funktion  jedoch  in  vielen  Programmen  nütz¬ 
lich  ist,  lohnt  es  sich  schon,  diese  Funktion  komfortabel  als 
Basic-Befehl  zur  Verfügung  zu  haben.  Ein  kleines  Maschinen¬ 
programm  macht’s  möglich. 

Nach  Eintippen  des  DATA-Laders  (Listing  1)  sollten  Sie  das 
Programm  als  erstes  unbedingt  abspeichern,  da  es  sich  nach 


Kontrolle  der  Prüfsumme  selbst  initialisiert  und  anschließend 
der  DATA-Lader  gelöscht  wird. 

Haben  Sie  das  Programm  abgespeichert,  dann  können  Sie 
es  mit  »RUN«  starten  und  haben  kurz  danach  den  neuen  Basic- 
Befehl  »FENSTER«  zur  Verfügung. 

Der  FENSTER-Befehl  hat  folgendes  Format  und  kann  in  je¬ 
dem  Basic-Programm  verwendet  werden: 

FENSTER  AZ,AS,EZ,ES 

Die  Parameter  haben  folgende  Bedeutung: 

AZ  =  Anfangszeile 

AS  =  AnfangsSpalte 

EZ  =  Endzeile 

ES  =  EndSpalte 

Gibt  man  im  Programm  beispielsweise  die  folgende  Zeile  10 
ein,  so  wird  ein  Fenster  von  Spalte  5  der  fünften  Zeile  bis  ein¬ 
schließlich  Spalte  35  der  15.  Zeile  definiert. 

10  FENSTER  5,5,35,15 

Das  Fenster  kann  durch  zweimaliges  Drücken  der  HOME- 
Taste  oder  durch  Generieren  eines  neuen  Fensters  gelöscht 
werden. 

Dem  Fenster-Befehl  müssen  auf  jeden  Fall  vier  Parameter 
folgen.  Für  die  Parameter  AZ  und  EZ  sind  nur  Zahlen  zwischen 
1  und  25  zulässig.  AS  und  ES  dürfen  nur  zwischen  1  und  40 
liegen.  Außerdem  ist  zu  beachten,  daß  AZ  auf  keinen  Fall  grö¬ 
ßer  als  EZ,  und  AS  nicht  größer  als  ES  gewählt  wird. 

Der  Fenster-Befehl  darf  auch  nicht  im  Direktmodus  verwen¬ 
det  werden,  aber  da  ist  die  normale  Vorgehensweise  über 
»ESC«  sowieso  sinnvoller.  Sollten  diese  Bedingungen  nicht 
beachtet  werden,  erscheint  die  Fehlermeldung  »SYNTAX  ER¬ 
ROR«. 

Das  Beispielprogramm  Fenster-Demo  (Listing  2)  generiert 
zitfP'"'  e  Textfenster  und  füllt  diese  farbig  aus. 

Der  FENSTER-Befehl  verkürzt  ein  Basic-Programm  bei  häu¬ 
figer  Anwendung  gegenüber  der  konventionellen  Methode 
über  PRINT-Anweisungen  ganz  erheblich,  so  daß  die  vom  Ma¬ 
schinenprogramm  beanspruchten  255  Byte  trotz  des  mage¬ 
ren  C  16-Speichers  kaum  ins  Gewicht  fallen  dürften. 

(Christian  Quirin  Spitzner/ev) 


10  REM  ********************************* 


20  REM  *  * 
30  REM  *  FENSTER  FUER  C  16  &  116  * 
40  REM  *  * 
50  REM  *  CHRISTIAN  QUIRIN  SPITZNER  * 
60  REM  *  GRUBERSTRASSE  33  * 
70  REM  *  8011  POING  * 
80  REM  *  * 


90  REM  ********************************* 


100  : 

110  : 

120  REM  ***  SPEICHER  BEGRENZEN  **« 


130 

140 
55  : 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 

2B0 

290 

300 

310 


POKE  53,255  :  POKE  54,62  :  POKE  55,2 
POKE  36,62  :  CLR 

REM  «**  ERKLAERUNG  *** 

PRINT"LÄ)"TAB<12>  “***  IFENSTERBi  ***" 
PR INT "HS  FORMAT: 

PRINT"S  IISFENSTER  AZ, AS, EZ, ES« 

PR INT" B  AZ  =  ANFANGSZEILE 

PRINT"  AS  =  ANFANGSSPALTE 

PRINT"  EZ  =  ENDZEILE 

PRINT"  ES  =  ENDSPALTE 

PRINT"M  NICHT  IM  DIREKTMODUS  ! 

REM  DATA 'S  EINLESEN  *** 

FÜR  1=16128  TO  16383 
:  READ  P 

:  Z=Z+P 


320  :  POKE  I,P 
330  NEXT  I 

340  IF  Z  <>  30097  THEN  PR  INT  "iS  IIDAT 

A  ERR0R5" : END 
350  : 

360  REM  »*#  INITIALISIEREN  ♦** 

370  : 

3S0  SYS  16128 
390  : 

400  REM  »**  FENSTER-BEFEHL  AUFRUFEN  *** 
410  : 


420  FENSTER  4,1,25,40 
430  : 

440  REM  ***  BASIC-LOADER  LOESCHEN  *** 

450  : 

460  NEW 
470  : 

480  REM  ***  DATA 'S  *** 

490  : 

500  DATA  169,024,141,008,003,169,063,141 
510  DATA  009,003,162,000,189,205,063,032 
520  DATA  210,255,232,224,043,208,245,096 
530  DATA  162,000,032,115,004,221,209,063 
540  DATA  208,007,232,224,007,208,243,240 
550  DATA  006,032,121,004,076,217,139,032 
560  DATA  183,251,032,115,004,032,132,157 
570  DATA  142,249,063,032,145,148,032,132 
580  DATA  157,142,250,063,032,145,148,032 
590  DATA  132,157,142,251,063,032,145,148 
600  DATA  032,132,157,142,252,063,174,249 
610  DATA  063,224,000,208,003,076,161,148 
620  DATA  224,024,016,249,174,251,063,224 
630  DATA  026,016,242,236,249,063,048,237 
640  DATA  174,250,063,224,000,240,230,224 
650  DATA  041,016,226,172,252,063,224,041 
660  DATA  016,219,236,250,063,048,214,162 
670  DATA  000,222,249,063,232,224,004,208 
680  DATA  248,173,249,063,133,205,173,250 
690  DATA  063,133,202,169,027,032,210,255 
700  DATA  169,084,032,210,255,173,251,063 
710  DATA  133,205,173,252,063,133,202,169 
720  DATA  027,032,210,255,169,066,032,210 
730  DATA  255,169,019,032,210,255,032,193 
740  DATA  251,032,121,004,076,217,139,000 
750  DATA  000,000,000,000,000,147,013,032 
760  DA  I A  1 30, 070, 069, 078, 083, 0B4, 069, 082 
770  DATA  1 32 , 032 , 040 ,067,041, 032 , 067 , 072 
780  DATA  082,073,083,084.073,065,078,032 
790  DATA  001,085,073,002,073,078,032,083 
800  DATA  080,073, 0B4, 090, 078, 069, 082, 013 
810  DATA  013,000,000,000,000,000,000,000 


READY. 


Listing  1.  Der  DATA-Lader 
zum  »Fenster«-Befehl 


100  REM  FENSTER-DEMD 
110  : 

120  COLOR  0,1  :  CÜLOR  4,1  :  SCNCLR 
130  : 

140  DO 

150  :  AZ  =  I NT ( RND (TI)*12)+1 

160  :  EZ  =  AZ*2+1 

170  :  AS  =  INT (RND (TI) »20) +1 

180  :  ES  =  AS»2 

190  : 

200  :  FENSTER  AZ, AS, EZ, ES 
210  : 

220  :  PRINT-L"; 

230  :  COLOR  1 , RND (TI ) *15+2, RND (TI ) *8 
240  :  E  =  (ES— AS+1 ) * (EZ— AZ+1 ) — 1 
250  :  FOR  1  =  1  Tü  E 
260  :  PRINT"ia  1"; 

270  :  NEXT 

280  :  PRINT"llSj"  ;  CHR$  ( 148)  ;  "  ; 

290  LOOP 

READY. 

Listing  2.  Ein  Demo-Programm 
zum  »Fenster«-Befehl 


84 


Ausgabe  7/Juli  1985 

64er-online.de 

64er-online.net 


VC  20-Steckmodule  auf  Diskette 

Wer  ein  Programmierhilfe-Modul  wie  zum  Beispiel  den 
»Super-Expander«  und  gleichzeitig  eine  64-KByte- 
Speichererweiterung  besitzt,  der  steht  vor  dem  Problem,  daß 
immer  nur  eines  von  beiden  Modulen  eingesetzt  werden  kann. 
Man  hat  also  die  Wahl  zwischen  erweitertem  Speicher  und 
komfortabler  Programmierung. 

Doch  das  muß  nicht  so  sein.  Wenn  Sie  ein  Diskettenlaufwerk 
zur  Verfügung  haben,  dann  können  Sie  das  Modul  einfach  auf 
Diskette  abspeichern  und  bei  Bedarf  in  den  Steckmodulbe¬ 
reich  ($A000  bis  $BFFF)  der  64-KByte-Erweiterung  laden. 
Gehen  Sie  dabei  wie  folgt  vor: 

Bei  eingesteckter  Supererweiterung  wird  zunächst  der 
Basic-Anfang  durch 
POKE  43,0:POKE  44,160 

auf  $A000,  also  auf  den  Steckmodulanfang,  gesetzt.  Nun  wird 
noch  der  Zeiger  auf  das  Basic-Ende  verbogen: 

POKE  45,0:POKE  46,192 

Das  Modul  kann  jetzt  mit  »SAVE  ”»Name”,8«  auf  Diskette  ge¬ 
speichert  werden.  Bei  Bedarf  kann  es  jederzeit  wieder  mit 
»LOAD  "Name”, 8,1«  geladen  werden,  vorausgesetzt  natürlich, 
man  hat  RAM  im  Bereich  $A000  bis  $BFFF  zur  Verfügung. 
Die  Supererweiterung  wird  mit  »SYS  64802«  eingeschaltet 
und  meldet  sich  dann  mit  28023  freien  Speicherbytes.  Aus¬ 
geschaltet  werden  kann  sie  mit  »SYS  64818«. 

Natürlich  ist  das  Laden  von  Diskette  umständlicher,  als 
gleich  mit  dem  Steckmodul  zu  arbeiten.  Der  große  Vorteil  liegt 
aber  darin,  daß  man  jetzt  über  die  Befehle  der  Supererweite¬ 
rung  und  gleichzeitig  den  vollen  Speicherausbau  verfügt. 

Es  muß  noch  darauf  hingewiesen  werden,  daß  sich  Spiele- 
module  mit  dieser  Methode  in  der  Regel  nicht  kopieren  lassen, 
da  sie  erstens  mit  einem  Autostart  versehen  sind  und  zweitens 
zusätzliche  Schutzmaßnahmen  eingebaut  haben.  Die  hier  be¬ 
schriebene  Methode  funktioniert  nur  zusammen  mit  einer  Dis¬ 
kette  nstation,  da  das  Betriebssystem  des  VC  20  sich  weigert, 
den  Steckmodulbereich  auf  Kassette  abzuspeichern. 

(Günter  Büntemeyer) 


Es  muß  nicht  immer  »READY.«  sein  ... 

Wenn  Sie  sich  darüber  ärgern,  daß  der  C  64  nach  jedem 
ausgeführten  Befehl  sein  stupides  »READY.«  auf  den  Bild¬ 
schirm  schreibt,  dann  geben  Sie  doch  die  beiden  folgenden 
Zeilen  im  Direktmodus  ein: 

FOR  1  =  40960  TO  49151  :  POKE  l,PEEK(l)  :  NEXT  :  POKE 
1,54  :  REM  Basic-Interpreter  ins  RAM  laden 
FOR  1=41848  TO  41853  :  POKE  1,32  :  NEXT  :  REM  READY- 
Meldung  überschreiben 

Wenn  Sie  jetzt  irgendeinen  Befehl  eingeben,  erscheint  kein 
»READY.«  mehr.  Natürlich  können  Sie  aber  auch  einfach  den 
Text  ändern: 

A$= "HALLO.”  :  FOR  1  =  1  TO  6  :  POKE  41847+1, ASC(MID$ 
( A$,l,1 ))  :  NEXT 

Nach  Eingabe  dieser  Zeile  meldet  sich  der  Interpreter  nach 
jeder  Eingabe  mit  »HALLO.«.  Sie  können  jeden  beliebigen  Text 
wählen,  vorausgesetzt,  er  ist  maximal  sechs  Zeichen  lang. 

(Andreas  Scharrer) 


Simons  Basic  und  Turbo-Tape 

Das  langsame  Laden  von  der  Datasette  ist  ein  gravierender 
Nachteil  von  Simons  Basic,  der  sich  aber  mit  »Turbo  Tape«  be¬ 
heben  läßt.  Nun  überschneiden  sich  zwar  Simons  Basic  und 
Turbo-Tape  in  bestimmten  Speicherbereichen  und  bei  der 
Zeropage-Belegung,  aber  das  läßt  sich  mit  wenig  Aufwand  be¬ 


heben.  Wer  sich  an  die  folgenden  Anweisungen  hält,  wird 
künftig  auch  bei  Simons  Basic  im  Turbo-Tape-Modus  laden  und 
abspeichern  können.  Die  Anweisungen  gelten  für  alle  Turbo- 
Tape-Versionen,  die  einen  Basic-Kopf  haben  und  über  »SYS 
50000«  reaktiviert  werden  können.  Die  Anfangsadresse  des 
ungekürzten  Turbo-Tape  ist  A=3032.  Bei  anderen  Anfangs¬ 
adressen  sollte  der  entsprechende  Wert  im  Umschreibepro- 
gramm  verwendet  werden. 

(1)  Umschreiben  von  Turbo-Tape 

Durch  folgende  Manipulationen  wird  Turbo-Tape  in  einen  an¬ 
deren  Speicherbereich  verlegt: 

—  Simons  Basic  laden  und  starten. 

—  Turbo-Tape  laden  ohne  zu  starten. 

—  Eingabe  der  folgenden  Zeilen  im  Direktmodus: 

A=3032  :  B=PEEK(45)  +  256  *  PEEK(46)  :  D=0  :  DIM 
A(100) 

FOR  X=A  TO  B  :  C  =  PEEK(X)  :  IF  C>  19  AND  C<  198  THEN 
D=D+1  :  A(D)=X  :  NEXT  :  ELSE  :  NEXT 
H  =  141  :  G  =  169 

FOR  X=1  TO  D  :  C=A(X) :  F=PEEK(C-2) :  IF  F=32  OR  F=H 
OR  PEEK(C-1)=G  THEN  POKE  C,PEEK(C)-96:  NEXT  :  ELSE 
:  NEXT 

—  Turbo-Tape  ist  jetzt  fertig  umgeschrieben  und  sollte  zu¬ 
nächst  abgespeichert  werden. 

(2)  Der  Umgang  mit  Simons  Turbo-Tape 

—  Erst  Simons  Basic,  dann  das  um  geschriebene  Turbo-Tape 
laden  und  starten. 

—  Um  mit  Simons  Basic  normal  arbeiten  zu  können,  muß  es 
mit  »SYS  32778«  reaktiviert  werden.  Ein  eventuell  vorhande¬ 
nes  Programm  erhält  man  mit  dem  Befehl  »OLD«  zurück. 

—  Zum  Laden  oder  Abspeichern  von  Programmen  wird  Turbo- 
Tape  mit  »SYS  25424«  aktiviert. 

—  SiTnuis  Basic  und  Turbo-Tape  werden  also  je  nach  Bedarf 
wechselseitig  eingeschaltet. 

—  Der  Basic-Speicher  sollte  auf  $6000  eingegrenzt  werden, 
damit  Turbo-Tape  nicht  überschrieben  wird. 

Wenn  man  sich  genau  an  diese  Hinweise  hält,  dann  steht  ei¬ 
nem  Arbeiten  mit  Turbo-Tape  auch  bei  Simons  Basic  nichts 
mehr  im  Wege.  Es  gibt  mittlerweile  auch  neue  Versionen  von 
Turbo-Tape  und  Simons  Basic,  die  problemlos  von  Anfang  an 
Zusammenarbeiten.  (Klaus  Holthausen) 


Tips  für  VC  20  und  Datasette 

POKE  37148,252  Datasetten-Motor  einschalten 
POKE  37148,254  Datasetten-Motor  ausschalten 
WAIT37148,2,2  Wartet  auf  Drücken  einer  Datasetten-Taste 
WAIT  37151,64  Wartet,  bis  »Play«-Taste  ausrastet 

(Thomas  Hahn) 


Textomat  mit  Centronics-Drucker 

Mit  wenig  Aufwand  und  zudem  sehr  preiswert  ist  es  möglich, 
das  Textverarbeitungsprogramm  Textomat«  von  Data-Becker 
ohne  teures  Hardware-Interface  an  einen  Centronics-Drucker 
(zum  Beispiel  Epson  RX)  anzuschließen. 

Als  Software-Schnittstelle  wird  dabei  das  Treiberprogramm 
von  Arnd  Wängler  und  Thomas  Krätzig  aus  der  Ausgabe  6/84 
des  64’er- Magazins  verwendet  und  das  dazugehörige,  im  glei¬ 
chen  Artikel  beschriebene  User- Port- Kabel,  das  ein  paar  Mark 
in  Anspruch  nimmt. 

Die  Aufgabe  besteht  nun  darin,  Textomat  irgendwie  an  diese 
Schnittstelle  anzupassen.  Zur  Datenübertragung  mit  dem 
Wängler/Krätzig-Interface  muß  ein  Druckerfile  zur  Geräte¬ 
adresse  4  geöffnet  werden,  das  keine  Sekundäradresse  oder 


de 

64er-onIine.net 


Ausgabe  7/Juli  1985 


77  OC  /  ll\in  TQI  DSC 
in  j  unu  ii\iuu 


C  64/VC  20 


allenfalls  die  Sekundäradresse  128  enthalten  darf.  Da  Texto- 
mat  aber  nur  Sekundäradressen  zwischen  1  und  14  zuläßt, 
muß  die  Anpassung  extern  erfolgen.  Dabei  behilft  man  sich  mit 
einem  kleinen  Trick: 

Mit  dem  Druckermenü  des  Textomat  wird  ein  Druckerpro¬ 
gramm  zu  einer  anderen  Sekundäradresse  erstellt  und  auf  Dis¬ 
kette  abgelegt. 

Dieses  »Programm«  wird  nach  Aus-  und  Wiedereinschal¬ 
ten  des  C  64  wie  ein  normales  Basic-Programm  mit  »LOAD 
"Drucker”, 8«  geladen.  Der  LIST-Befehl  darf  aber  auf  keinen  Fall 
verwendet  werden,  da  es  sich  um  kein  eigentliches  Programm 
handelt.  Statt  dessen  gibt  man  nach  dem  Laden  »POKE 
2048+255,128«  ein,  wodurch  die  Sekundäradresse  auf  128 
geändert  wird.  Anschließend  wird  das  so  geänderte  Drucker- 
File  mit  »SAVE  ”:Drucker”,8«  wieder  auf  die  Diskette  zurückge¬ 
schrieben.  Die  für  den  Epson-Drucker  erforderliche  Anpas¬ 
sung  der  Commodore-Zeichen  an  den  Standard-ASCII- 
Zeichensatz  kann  über  die  Druckeranpassung  des  Textomat 
erfolgen. 

Um  nun  mit  Textomat  und  dem  Centronics-Treiber  zu  arbei¬ 
ten,  muß  stets  als  erstes  das  Treiberprogramm  aus  der  Ausga¬ 
be  6/84  geladen  und  mit  »SYS  724«  initialisiert  werden.  Dann 
lädt  man  das  Textomat-Hauptprogramm  mit  »LOAD  T.OBJ"8,1« 
und  startet  es  mit  »SYS  4108«.  An  diesen  SYS-Befehl  sollte 
man  sich  beizeiten  gewöhnen,  da  der  normale  Start  mit  SYS 
4096  den  Kopierschutz  aktiviert,  der  das  Directory  jeder  »un¬ 
befugten«  Diskette  löscht. 

Der  Centronics-Drucker  kann  jetzt  wie  ein  Commodore- 
Drucker  angesprochen  werden,  nachdem  die  ASCII- 
Anpassung  und  die  Anpassung  der  Steuerzeichen  vorgenom¬ 
men  wurde. 

Zu  bemerken  wäre  noch,  daß  diese  Vorgehensweise  mit  der 
83’er  Textomat-Version  erprobt  wurde  und  das  Funktionieren 
mit  neueren  Versionen  nicht  garantiert  ist.  (Werner  Weigelt) 


POKEs  für  den  VC  20 

POKE  199,1  Wirkung  wie  RVS  ON 

POKE  199,0  Wirkung  wie  RVS  OFF 

POKE  214, X  Setzt  Cursor  um  X  Stellen  nach  unten 

POKE  774,0  Listschutz  (Listet  nur  Zeilennummern) 

POKE  774,27  Listschutz  (Listet  nur  Unsinn) 

POKE  774,26  Listschutz  aus 

POKE  775,1  Listschutz  (VC  20  stürzt  ab) 

POKE  775,200  Listschutz  (»Error«  nach  erster  Zeile) 

POKE  775,199  LIST  wieder  normal 
POKE  776,221  Verweigert  Befehlsausführung 
POKE  777,1  Cursor  »HOME«  nach  jedem  Befehl 
POKE  777,199  Hebt  vorherigen  POKE  wieder  auf 
POKE  788,194  RUN/STOP-Taste  abschalten 
POKE  788,191  RUN/STOP-Taste  wieder  in  Betrieb 
POKE  792,2  RESTORE-Taste  abschalten 
POKE  792,173  RESTORE-Taste  wieder  in  Betrieb 
POKE  808,128  RUN/STOP  und  RESTORE  abschalten 
POKE  808,112  RUN/STOP  und  RESTORE  wieder  in  Betrieb 
POKE  36864, X  Horizontale  Bildschirmzentrierung  (X=0-59) 
POKE  36865.X  Vertikale  Bildschirmzentrierung  (X=0-156) 
POKE  36866.X  Anzahl  Bildschirmspalten  (X=  128  +  Spalten) 
POKE  36867.X  Anzahl  Bildschirmzeilen  (X=2-46) 

POKE  36869,242  Umschalten  auf  Kleinschriftmodus 
POKE  36869,240  Umschalten  auf  Großschrift/Grafik 
POKE  37148,251  Datasettenmotor  aus 
POKE  37148,252  Datasettenmotor  ein 
POKE  37150,2  Setzt  RESTORE-Taste  außer  Betrieb 
POKE  37150,130  Setzt  RESTORE-Taste  wieder  in  Betrieb 

(Herbert  Lickes) 
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Reset-Helfer  für  C  64 

Das  Betriebssystem  des  C  64  enthält  ab  der  Adresse 
$FD02  ein  Unterprogramm,  das  im  Steckmodulbereich  ab 
$8000  nach  der  Zeichenfolge  »CBM80«  sucht.  Nach  dem 
Einschalten  des  Computers  oder  nach  einem  Reset  wird  die¬ 
ses  Unterprogramm  jedesmal  aufgerufen.  Werden  ab  der 
Adresse  $8003  die  Zeichen  »CBM80«  gefunden,  dann  wird 
nicht  zum  Basic-Start  gesprungen,  sondern  das  Betriebssy¬ 
stem  nimmt  an,  daß  ein  Modul  eingesteckt  ist,  holt  sich  aus  der 
Speicherzelle  $8000/$8001  die  Startadresse  des  Modulpro- 
gramms  und  verzweigt  dorthin. 

Das  kleine  »Reset-Helfer«-Programm  (Listing)  nutzt  dies 
aus,  indem  es  die  genannten  Speicherstellen  in  geeigneter 
Weise  abändert.  Es  schreibt  die  »CBM80«-Zeichenfolge  ab 
$8003  ins  RAM  und  läßt  die  Speicherstellen  $8000/$8001 
auf  den  Basic-Warmstart  zeigen. 

Wenn  man  jetzt  einen  Reset  auslöst,  kommt  man  wie  ge¬ 
wohnt  aus  allen  »abgestürzten«  Programmen  heraus,  ein  vor¬ 
handenes  Basic-Programm  bleibt  aber  erhalten. 

(Henning  Zipf) 


i  m 

REM  ***  RESET-HELFER  C  64  *** 

<002> 

H0 

REM 

< 253  > 

120 

REM  HENNING  ZIPF 

<071  > 

130 

REM  KIRCHSTR.  8 

<225> 

140 

REM  6086  RIEDSTADT  5 

<200  > 

150 

REM  TEL.  (06158)772453 

<  193> 

160 

REM 

<047> 

170 

FOR  1=1  TO  9 

<052> 

180 

READ  D 

<  1 27  > 

190 

POKE  32767+ 1 , D 

<  169> 

200 

NEXT  I 

<  1 47  > 

210 

POKE  53280 ,14: POKE  5328 1 , 6 

<050  > 

220 

PRINT  CHR$ ( 147) ; CHRf (5) 

<  177> 

24kj 

PRINT"  C  64  CHANSED  RESET  VECTOR" 

<  1 7  6  > 

PRINT 

<  1 37  > 

250 

PRINT"  64  K  RAM  SYSTEM  38911  BASIC  BYT 

ES  FREE" 

<09S> 

260 

PRINT 

<158  > 

270 

NEW 

<  177> 

230 

DATA  0,0,255,0,195,194,205,56,48 

<21  i> 

290 

REM  ERST  SAVE,  DANN  RUN  ! 

Listing  »Reset-Helfer«  für  den  C  64 

<  1 30  > 

Einfacher  Reset-Schalter  selbstgebaut 

Sehr  preiswert  und  einfach  kommt  man  im  Selbstbau  zu  ei¬ 
nem  Reset-Schalter,  wenn  man  sich  im  Elektronikfachge¬ 
schäft  einen  sechspoligen  Diodenstecker  und  einen  Miniatur- 
Tastschalter  besorgt.  Der  Tastschalter  wird  zwischen  die  Pins 
2  und  6  des  Diodensteckers  gelötet  (siehe  Bild).  Zur  Pinbele¬ 
gung  vergleiche  auch  Seite  142  im  C  64-Handbuch.  Der  so 
präparierte  Diodenstecker  wird  nun  in  den  seriellen  Port  des 
C  64  beziehungsweise  VC  20  gesteckt.  Falls  der  Port  bereits 
von  Floppy  oder  Drucker  belegt  ist,  kann  der  Stecker  natürlich 
auch  in  die  freie  Buchse  des  entsprechenden  Zusatzgerätes 
eingesteckt  werden.  Auf  Knopfdruck  wird  nun  in  jedem  Fall 
wieder  der  Einschaltzustand  des  Computers  hergestellt. 

Die  Kosten  für  Stecker  und  Taste  betragen  zusammen  etwa 
4  Mark.  (Henning  Zipf) 
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Bücher 


Die  Floppy  1541 

Schon  seit  längerem  angekün¬ 
digt,  ist  es  dieser  Tage  endlich 
auf  den  Markt  gekommen:  Das 
Buch  über  die  1541-Floppy  von 
Karsten  Schramm,  der  den  Le¬ 
sern  des  64'er-Magazins  als  Au¬ 
tor  des  Floppy-Kurses  kein  Un¬ 
bekannter  ist.  Hier  plaudert  em 
Profi  aus  seiner  Trickkiste.  Denn 
bei  diesem  Floppy-Buch  wurde 
der  Schwerpunkt  auf  die  The¬ 
men  gelegt,  bei  denen  andere 
aufhören. 

Und  so  erfährt  man  dann  in 
lockerem  Stil,  was  in  dem  Disket¬ 
tenlaufwerk  wirklich  abläuft, 
und  wie  man  es  geschickt  mani¬ 
pulieren  kann.  Kein  Blatt  vor  den 
Mund  genommen  wird,  wenn  es 
um  Software-Schutzmethoden 
geht:  Vielleicht  ein  Ärgernis  für 
den  einen  oder  anderen  Soft¬ 
warehersteller,  aber  nützlich  für 
den  ambitionierten  Anwender, 
der  seine  selbstgeschriebene 
Software  kopiersicher  machen 
will. 

Dennoch  ist  das  vorliegende 
Buch  nicht  nur  für  Profis  geeig¬ 
net:  Wer  bisher  nur  die  Befehle 
LOAD  und  SAVE  mit  seiner  1541 
in  Verbindung  bringen  konnte, 
der  erfährt  hier,  wie  man  se¬ 
quentielle,  relative  und 
Direktzugriffs-Dateien  realisie¬ 
ren  und  ausnutzen  kann. 

Einige  der  weiteren  Themen: 
Fehler  im  Commodore-DOS 
werden  schonungslos  offenge¬ 
legt.  Der  serielle  Bus  wird  unter 
die  Lupe  genommen  und  nach 
Hypra-Load-Manier  beschleu¬ 
nigt.  Methoden  zur  Rettung  von 
verlorengegangenen  Daten  und 
fehlerhaften  Blöcken  werden 
vorgestellt.  Und  dies  sind  noch 
längst  nicht  alle  der  angespro¬ 
chenen  Bereiche. 

Das  Allerbeste  an  diesem. 
Buch  ist  allerdings  das  doku¬ 
mentierte  Listing  des  1541- 
ROMs.  Es  ist  fast  zu  schön  um 
wahr  zu  sein,  wie  gründlich  die 
Dokumentation  vorgenommen 
wurde,  denn  sie  läßt  sich  fast 
schon  wie  ein  zusammenhän¬ 
gender  Text  lesen.  Praktisch  je¬ 
der  einzelne  Maschinenbefehl 
wurde  mit  einem  erläuternden 
Text  versehen,  weiter  gibt  es  zu 
jeder  der  rund  400  Einzelrouti¬ 
nen  des  DOS  einen  kleinen  ein¬ 
leitenden  Text,  dem  dann  die 
ausführliche  Dokumentation  ne¬ 
ben  dem  Assembler-Listing 
folgt. 

Die  Dokumentation,  die  fast 
die  Hälfte  des  Buches  in  An¬ 
spruch  nimmt,  wird  von  einer 
ebenso  ausführlichen  RAM-Be- 
legung  ergänzt.  Mehrere  nützli¬ 
che  Programme  und  ein  aus¬ 
führliches  Stichwortverzeichnis 
runden  das  äußerst  positive  Ge¬ 
samtbild  ab.  In  Vorbereitung  ist 
eine  Diskette  mit  allen  abge- 
drucklen  und  einigen  zusätzli 
chen  Programmen.  Das  eindeu- 
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tige  Urteil:  Ein  Floppy-Buch,  wie 
man  es  sich  besser  kaum  vorstel¬ 
len  kann.  Von  seiner  Qualität  her 
gesehen  hat  es  gute  Chancen, 
das  Standardwerk  über  die  1541 
zu  werden. 

(Boris  Schneider/ev) 

Info:  Karsten  Schramm,  Die  Floppy  1541, 
Markt  &  Technik  198S,  430  Seiten.  ISBN 
3-89090-098-4,  49  Mark 

Grafik  &  Musik  auf 
dem  Commodore  64 

Das  Thema  Nummer  Eins  auf 
dem  Commodore  64,  zumindest 
was  die  Bücherproduktion  an¬ 
geht,  ist  immer  noch  die  Grafik. 
Im  vorliegenden  Buch  »Grafik  & 
Musik  auf  dem  Commodore  64« 
wird  dieses  Thema  zusammen 
mit  den  akustischen  Fähigkeiten 
sehr  ausführlich  und  mit  vielen 
Beispielen  versehen  erklärt.  Da¬ 
bei  werden  nur  Basic-Grund- 
kenntnisse  vorausgesetzt.  Gera¬ 
de  den  Anfängern,  die  vom  ori¬ 
ginal  Commodore-Handbuch 
stark  enttäuscht  worden  sind, 
wird  hier  auf  fast  340  Seiten  eini¬ 
ges  geboten.  Von  der  einfachen 
PRINT-Grafik  über  Sprites  und 
hochauflösunde  Grafik  im  Mul- 
ticolormodus,  von  einfachen 
Piepston  über  Klangeffekte  bis 
zum  Musikstück  und  der  Kombi¬ 
nation  dieser  Dinge,  wird  die 
Thematik  hier  voll  ausgeschöpft. 

Sehr  gefallen  hat  dabei  auch 
der  lockere  Stil,  in  dem  das  Buch 
gehalten  ist.  Außerdem  wird  be¬ 
wiesen,  daß  man  nicht  immer 
erst  graue  Theorie  von  der  Pra¬ 
xis  lernen  muß.  Ein  Beispiel:  Um 
die  Programmierung  von  Sprites 
zu  verstehen,  muß  man  sich  nicht 
erst  durch  langwierige  Erklä¬ 
rungen  des  Binärsystems  kämp¬ 
fen,  sondern  arbeitet  vorerst  mit 
einem  Spriteentwurfsblatt,  das 
alle  wichtigen  Daten  enthält.  Na¬ 
türlich  wird  später  genau  auf  die 
Arbeitsweise  des  VICs  einge¬ 
gangen,  das  Binärsystem  bleibt 
ebenfalls  nicht  unbeachtet.  Es 
kann  dann  jedoch  anhand  des 
schon  ausgeführten  Beispiels 
gelernt  werden. 

Emen  einzigen  kleinen  Haken 
hat  das  Ganze  aber  doch:  Da 
hier  fast  ausschließlich  auf 
Basic-Ebene  gearbeitet  wird, 
arten  manche  Programme  gera¬ 
dezu  in  POKE-  und  DATA-Orgien 

aus,  die  man  aber  dank  der  gu¬ 
ten  Dokumentation  in  den  Griff 
kriegen  kann.  Viele  Tabellen, 
Entwurfsblätter  und  Register¬ 
übersichten  bilden  emen  sehr 
umfangreichen  Anhang,  den 
selbst  der  inzwischen  weit  fort¬ 
geschrittene  Programmierer 
gerne  als  Nachschlagewerk  be¬ 
nutzen  wird.  Alles  in  allem  ein 
empfehlenswertes  Buch,  für  das 
die  38  Mark  sicherlich  nicht  zu 
viel  sind. 

(Boris  Schneider) 

Info:  Stan  Krule,  Grafik  &  Musik  auf  dem 
Commodore  64,  Markt  &  Technik  1984,  zir¬ 
ka  340  Seiten,  38  Mark. 


Spaß  an  Mathe  mit 
dem  Commodore  64 

Endlich  einmal  ein  Buch,  das 
die  Mathematik  für  Computer 
nicht  von  der  bierernsten  Seite 
her  angeht.  Das  Konzept  von 
»Spaß  an  Mathe  mit  dem  Com¬ 
modore  64«  hat  denn  auch  die 
Mathematik  nur  als  Aufhänger: 
Tatsächlich  wird  gezeigt,  wozu 
man  den  Computer  außer  »Spa¬ 
ce  Invaders«  und  »Impossible 
Mission«  noch  benutzen  kann. 

Daß  dabei  dann  auch  noch  ei¬ 
ne  Vielzahl  gut  dokumentierter 
und  wirklich  nützlicher  Pro- 
grammlistings  herausspringt,  ist 
ein  weiterer  Pluspunkt.  Die 
wichtigsten  Listings  sind  eine 
Grafik-  und  eine  Mathematik¬ 
spracherweiterung,  die  sich 
durchaus  mit  kommerziell  ver¬ 
triebener  Software  messen  kön¬ 
nen. 

Einziger  Nachteil:  Die  beiden 
arbeiten  nicht  zusammen.  Dafür 
ist  das  Eintippen  der  doch  recht 
umfangreichen  Listings  recht 
komfortabel  gehalten  worden: 
Im  Anhang  des  Buches  befindet 
sich  ein  Programm,  das  die  Ein¬ 
gabe  enorm  erleichtert  und  ge¬ 
gen  Fehler  absichert. 

Auf  den  beiden  Spracherwei- 
terungen  aufbauend  werden 
dann  einige  mathematische  Pro¬ 
bleme  behandelt,  die  nicht  ge- 
raaelum  Schulalltag  gehören, 
so  zum  Beispiel  magische  Zah¬ 
lenquadrate,  Warteschlangen¬ 
oder  Populationsprobleme. 
Auch  ein  Funktionsplotter  darf 
natürlich  nicht  fehlen.  Und  damit 
man  auch  wirklich  was  lernt, 
sind  alle  Listings  vollständig  do¬ 
kumentiert  (auch  die  Assem- 
blerlistings). 

Zusätzlich  werden  stapelwei¬ 
se  Grundlagen  über  den  C  64 
und  zahlreiche  Tips  und  Tricks 
vermittelt.  Beim  Funktionenplot¬ 
ter  erfährt  man  zum  Beispiel,  wie 
man  Fehlermeldungen  abfan- 
gen  kann,  oder  wie  sich  selbst¬ 
verändernde  Programme  per 
Tastaturpuffer  programmieren 
lassen. 

Man  tut  sich  also  nicht  schwer, 
später  eigene,  leistungsfähige 
mathematische  Programme  zu 
schreiben.  Natürlich  darf  man 
nicht  als  totaler  Anfänger  an  das 
Buch  herangehen,  man  sollte 
sich  schon  etwas  mit  den  Basic- 
Befehlen  auskennen,  und  auch 
den  Mut  haben,  erste  Kontakte 
mit  Maschinensprache  aufzu¬ 
nehmen. 

Dann  bringt  einem  dieses 
Buch  aber  eine  ganze  Menge, 
lernt  man  doch  seinen  Commo¬ 
dore  64  am  praktischen  Beispiel 
kennen.  Man  merkt  deutlich, 
daß  hier  als  Autor  ein  Lehrer  am 
Werke  war. 

(Boris  Schneider) 


Info:  Holaer  Danielsson,  Spaß  an  Mathe  mit 
dem  Commoüoie  04,  Sybex  1985,  280  Sei¬ 
ten.  Preis:  32  Mark 


Mathe  für  die  Oberstufe. 
...aufgezeigt  am 
Beispiel  Commodore  64 

So  lautet  der  recht  vielver¬ 
sprechende  Titel  eines  neuen 
Buches  aus  dem  IWT-Verlag,  das 
auch  durch  emen  dem  Schüler¬ 
geldbeutel  angepaßten  Preis 
(28  Mark)  besticht. 

Aber  damit  sind  leider  auch 
fast  alle  positiven  Seiten  dieses 
Buches  aufgezählt.  Man  erhält 
nämlich  nichts  weiter  als  14  un¬ 
dokumentierte  und  teilweise 
recht  lange  Programmlistings 
minderer  Qualität. 

Ein  Beispiel:  »Kurvendiskus¬ 
sion  für  Polynome  zweiten  Gra¬ 
des«.  Wer  die  13  Druckseiten  ab¬ 
getippt  hat,  kann  sich  nun  zu  je¬ 
dem  solchen  Polynom  die  Sym¬ 
metrieeigenschaften,  Nullstel¬ 
len,  Extremwerte  und  Wende¬ 
punkte  sowie  das  Monotonie- 
und  Krümmungsverhalten  aus¬ 
geben  lassen. 

Dummerweise  hat  ein  Poly¬ 
nom  zweiten  Grades  jedoch  we¬ 
der  Wendepunkte  noch  ist  es 
punktsymmetrisch,  so  daß  die 
entsprechenden  Erklärungen 
und  Berechnungen  im  Pro¬ 
gramm  völlig  nutzlos  sind. 

Ein  Nutzen  daraus  könnte  al¬ 
lenfalls  vielleicht  gezogen  wer¬ 
den,  wenn  man  das  Programm 
selber  auf  andere  Funktionen 
erweitert  oder  umschreibt,  was 
allerdings  durch  das  Fehlen  jeg¬ 
licher  Dokumentation  stark  er¬ 
schwert  wird. 

Es  geht  aber  noch  weiter:  Man 
scheute  sich  nicht,  als  weiteres 
Listing  eine  »Kurvendiskussion 
mit  Integration  für  Polynome 
zweiten  Grades«  abzudrucken. 
Man  ahnt  was  kommt:  Dasselbe 
Programm  noch  einmal,  dann  al¬ 
lerdings  um  einen  Unterpro¬ 
grammpunkt  und  auf  20  Druck¬ 
seiten  erweitert. 

Vorhanden  ist  übrigens  noch 
eine  Kurvendiskussion  von  Poly¬ 
nomen  dritten  Grades  (ohne  In¬ 
tegration).  Eine  anspruchsvolle 
Kurvendiskussion  kann  mit  den 
abgedruckten  Programmen 
nicht  durchgeführt  werden. 
Ähnlich  verhält  es  sich  auch  mit 
den  diversen  Ableitungs-  und 
Integrationsprogrammen,  die 
jeweils  nur  recht  uninteressante 
und  zudem  leichte  Einzelfälle 
behandeln.  Und  auch  die  Pro¬ 
gramme,  die  sich  mit  der  Matri¬ 
zenrechnung  beschäftigen, 
decken  nur  einen  kleinen  Be¬ 
reich  ab.  Und  schließlich  sei  zu 
den  begleitenden  Texten  ge¬ 
sagt,  daß  sie  viel  zu  kurz  und, 
oberflächlich  sind. 

Langer  Rede  kurzer  Sinn:  Die 
28  Mark  wären  bei  einer  Mathe¬ 
matiknachhilfe  besser  angelegt. 

(Boris  Schneider) 


Info:  J.  Merget,  Mathe  für  die  Oberstufe, 
IWT-Verlacj  1984,  150  Setten.  28  Mark. 
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Wollen  Sie  einen  gebrauchten  Computer  verkaufen  oder  erwerben?  Suchen  Sie  Zubehör?  Haben  Sie 
Software  anzubieten  oder  suchen  Sie  Programme  oder  Verbindungen?  Der  COMPUTER-MARKT  von 
»64er«  bietet  allen  Computerfans  die  Gelegenheit,  für  nur  5,—  DM  eine  private  Kleinanzeige  mit  bis 
zu  5  Zeilen  Text  in  der  Rubrik  Ihrer  Wahl  aufzugeben.  Und  so  kommt  Ihre  private  Kleinanzeige  in  den 
COMPUTER-MARKT  der  August-Ausgabe  (erscheint  am  19.  Juli  85):  Schicken  Sie  Ihren  Anzeigen¬ 
text  bis  zum  24.  Juni  85  (Eingangsdatum  beim  Verlag)  an  »64er«.  Spater  eingehende  Aufträge  werden 
in  der  September-Ausgabe  (erscheint  am  16.  August  85)  veröffentlicht. 


Am  besten  verwenden  Sie  dazu  die  vorbereitete  Auftragskarte  am  Anfang  des  Heftes. 

Bitte  beachten  Sie:  Ihr  Anzeigentext  darf  maximal  5  Zeilen  mit  je  32  Buchstaben  betragen. 

Überweisen  Sie  den  Anzeigenpreis  von  DM  5,— auf  das  Postscheckkonto  Nr.  14199-803  beim  Post¬ 
scheckamt  mit  dem  Vermerk  »Markt  &  Technik.  64er«  oder  schicken  Sie  uns  DM  5,—  als  Scheck  oder 
in  Bargeld.  Der  Verlag  behält  sich  die  Veröffentlichung  längerer  Texte  vor.  Kleinanzeigen,  die  entspre- 
chend  gekennzeichnet  sind,  oder  deren  Text  auf  eine  gewerbliche  Tätigkeit  schließen  läßt,  werden 
in  der  Rubrik  »Gewerbliche  Kleinanzeigen«  zum  Preis  von  DM  11  —  je  Zeile  Text  veröffentlicht. 
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Dateiverwaltung _ 

Vergleidistest: 

7  Dateiverwaltungen 
auf  einen  Blick 

Daten  zu  verwalten  gehört  neben  der  Textverarbei¬ 
tung  zum  Hauptanwendungsgebiet  eines  Computers. 
Um  Ihnen  eine  Übersicht  zu  vermitteln,  stellen  wir 
die  sieben  bekanntesten  Programme  vor. 


Der  Computer  hilft  bei  der  Verwaltung  Ihrer  Daten. 


In  diesem  Kurzvergleich  können 
unmöglich  alle  Einzelfunktionen 
sämtlicher  Produkte  aufgeführt 
werden.  Einige  Grundfunktionen 
(wie  zum  Beispiel  das  Eingeben,  Än¬ 
dern,  Löschen  und  Ausgeben  von 
Datensätzen)  werden  deshalb  als 
selbstverständlich  vorausgesetzt. 
Im  wesentlichen  wird  jedoch  gezielt 
auf  solche  Besonderheiten  einzel¬ 
ner  Produkte  hingewiesen,  die  nicht 
gleichermaßen  zum  Standard  gehö¬ 
ren. 

Datamat 

Bereits  im  August  '83  ist  die  erste 
Version  von  Datamat  (aus  dem  Haus 
Data  Becker)  auf  den  Markt  gekom¬ 
men.  Laut  Data  Becker  soll  dieses 
Programm  bereits  15000  mal  im  Ein¬ 
satz  sein,  was  sicher  auch  auf  den 
recht  günstigen  Preis  zurückzufüh¬ 
ren  ist. 

Die  hier  getestete  neue  Version 
(sie  wird  seit  zirka  August  1984  aus- 
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geliefert)  ist  gegenüber  der  alten  so¬ 
wohl  um  einiges  schneller  gewor¬ 
den  (durch  Programmierung  in  Ma¬ 
schinensprache)  als  auch  besser 
gegen  Abstürze  gesichert.  Mit  der 
alten  Version  erstellte  Masken  und 
Dateien  können  übernommen  wer¬ 
den.  Die  Pointer-,  Auswertungs- und 
Indexdatei  müssen  jedoch  erneuert 
werden. 

Durch  ein  gut  gegliedertes  deut¬ 
sches  Handbuch  und  eine  komforta¬ 
ble  Menüsteuerung  wird  auch  der 
Einsteiger  zum  Erfolgserlebnis  kom¬ 
men  (Bild  1). 

Generell  in  allen  Programmteilen 
gilt: 

Fl-Taste  =  Auslösetaste  (wie  RE¬ 
TURN) 

F2-Taste  =  Abbruch  (letztes  Menü) 
Leertaste  =  Springen  im  Menü 

Die  Erstellung  von  Masken  ist  ein¬ 
fach  und  problemlos.  Die  minimale 
Feldlänge  von  zwei  Zeichen  gestat¬ 
tet  leider  keine  Definition  von  ein¬ 
stelligen  Feldern.  Dagegen  ist  es 
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sehr  angenehm,  daß  pro  Satz  bis  zu 
50  Felder  definiert  werden  können. 
Die  Anzahl  der  möglichen  Datensät¬ 
ze  hängt  von  der  Länge  des  Index¬ 
feldes  und  der  Länge  des  einzelnen 
Satzes  (maximal  2000)  ab.  Das  Pro¬ 
gamm  bietet  umfangreiche  Such¬ 
funktionen: 

—  Schnelles  Suchen  über  das  Index¬ 
feld 

—  Suchen  über  Index  mit  Joker 
(Name  =  M*) 

—  Suchen  nach  beliebigen  Kriterien 

Bei  der  letzten  Funktion  sind  meh¬ 
rere  Kriterien  kombinierbar.  Es 
kann  auch  jedem  Suchfeld  ein  Ver¬ 
gleichsoperator  wie  gleich,  kleiner, 
größer,  kleiner  gleich,  größer 
gleich,  ungleich  zugeordnet  wer¬ 
den.  Interessant  gelöst  ist  auch  der 
Intervall-Vergleich  von  —  bis,  bei 
dem  mit  zwei  Bildschirmebenen  ge¬ 
arbeitet  wird.  Die  ausgewählten  Da¬ 
tensätze  können  mehrstufig  umsor¬ 
tiert  werden  (Pointer-Datei  als  Hilfs¬ 
datei).  Die  Ergebnisse  sind  am  Bild¬ 
schirm  leider  nur  einzeln  abzurufen, 
können  jedoch  als  frei  definierbare 
Liste  verdichtet  auf  Drucker  ausge¬ 
geben  werden.  Diese  Listengestal¬ 
tung  ist  sehr  komfortabel.  Durch  ho¬ 
rizontales  Verschieben  wird  das  Li¬ 
stenformat  auch  am  Bildschirm  als 
ganzes  erkennbar.  Für  jede  beliebi¬ 
ge  Spalte  kann  außerdem  eine  Sum¬ 
menbildung  durchgeführt  werden. 

Über  die  Menüpunkte  »Datei  aus¬ 
werten«  und  »Floppy«  kann  eine  Da¬ 
tei  mit  neuer  Feldanordnung  er¬ 
zeugt  werden,  die  dann  mit  einem 
Textverarbeitungsprogramm  wei¬ 
terverarbeitet  werden  kann.  Wie 
bei  der  Textverarbeitung  ist  auch 
bereits  im  Datamat  ein  deutscher 
Zeichensatz  wählbar. 

Datenmanager  64 

Die  deutsche  Beschreibung  ist  lei¬ 
der  genauso  dürftig  wie  man  es  von 
Commodore-Handbüchern  eben 
gewohnt  ist.  Sie  umfaßt  ganze  19  Sei¬ 
ten.  Zum  Glück  ist  das  Produkt 
selbst  besser.  Nach  dem  Start  er¬ 
scheint  ein  umfangreiches  Menü 
(Bild  2).  Die  Auswahl  erfolgt  durch 
Eingabe  des  jeweiligen  Anfangs¬ 
buchstabens.  Auch  ohne  Menü  kann 
im  weiteren  jederzeit  ein  Komman¬ 
do  direkt  gegeben  werden  oder  mit 
»H«  (Help)  zum  Menü  gesprungen 
werden. 

Zum  Aufbau  einer  Datei  werden 
zunächst  alle  Felder  (maximal  10!) 
des  Datensatzes  definiert:  Feldna¬ 
me,  Länge  (maximal  79),  Typ  (a/n  = 
alphanumerisch/numerisch),  Index 
(j/n).  Es  sind  maximal  drei  Indexfel¬ 
dermöglich.  Auf  die  Feldanordnung 
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in  der  Eingabemaske  hat  man  kei¬ 
nen  weiteren  Einfluß,  sie  erfolgt  au¬ 
tomatisch  zeilenweise.  Die  Datei  mit 
maximal  1000  Sätzen  kann  auch  über 
mehrere  Disketten  verteilt  werden. 

Das  Programm  bietet  neben  dem 
Suchen  über  eines  der  Indexfelder 
auch  die  Möglichkeit,  nach  mehre¬ 
ren  Kriterien  auszuwählen  (UND- 
Verknüpfung).  Hinter  dem  Suchbe¬ 
griff  kann  auch  ein  logischer  Opera¬ 
tor  wie  kleiner,  größer,  gleich  ange¬ 
geben  werden.  Eine  Sortierung  ist 
nur  über  eines  der  Indexfelder 
möglich.  Durch  entsprechende  Vor¬ 
einstellung  im  Menüpunkt  »Parame¬ 
ter«  ist  auch  die  Ausgabe  von  geord¬ 
neten  Listen  oder  die  Erstellung  von 
Adreßaufklebern  möglich.  Interes¬ 
sant  ist  der  Änderungsmodus  für  nu¬ 
merische  Felder:  Neben  Über¬ 
schreiben  ist  hier  auch  die  Ände¬ 
rung  um  einen  absoluten  Wert  oder 
eine  prozentuale  Änderung  mög¬ 
lich,  zum  Beispiel  Stück:  +  20  (Zubu¬ 
chen  zum  Lagerbestand  ohne  Kopf¬ 
rechnen)  oder  Preis:  +3%  (Erhö¬ 
hung  des  gespeicherten  Preises). 

Der  Datenmanager  besitzt  außer¬ 
dem  eine  einfache,  integrierte  Text¬ 
verarbeitung  mit  einer  maximalen 
Zeilenlänge  von  60  Zeichen  und  ei¬ 
ner  maximalen  Textlänge  von  zirka 
vier  Schreibmaschinenseiten.  Mit 
» ' «  können  auch  Felder  zur  Erstel¬ 
lung  von  Serienbriefen  definiert 
werden. 

Datei  64 

Die  Programmdiskette  wird  ohne 
Handbuch  nur  mit  zwei  Seiten  Kurz¬ 
information  ausgeliefert.  Nach  dem 
Laden  des  Programms  erscheint 
der  sogenannte  »Hauptverteiler«, 
ein  auf  die  Funktionstasten  abge¬ 
stimmtes  Menü  (Bild  3).  Mit  der 
Fl-Taste  bekommt  man  eine  äußerst 
knappe  Erklärung  der  Programm¬ 
bedienung.  Zwei  Maskendefinitio¬ 
nen  werden  bereits  mitgeliefert,  ei¬ 


ne  Anschriftenverwaltung  und  ein 
Bücherarchiv.  Möchte  man  eine  ei¬ 
gene  Anwendung  erstellen,  so  ist  zu¬ 
nächst  ein  Datensatz  zu  definieren: 

Feldnamen,  Eingabeart  (alpha, 
Betrag,  Datum  etc.)  und  Feldlänge. 
Bei  Datums-  und  Uhrzeitfeldem 
wird  sogar  eine  Plausibilitätskontrol¬ 
le  durchgeführt. 

Danach  muß  für  jedes  Feld  die  ge¬ 
naue  Position  festgelegt  werden.  Au¬ 
ßerdem  können  noch  Überschrifts¬ 
und  Titelzeilen  definiert  werden. 
Bevor  die  Dateneingabe  beginnt, 
wird  eine  Arbeitsdiskette  Erstellt. 

Am  Beispiel  des  Bücherarchivs 
sollen  nun  die  Möglichkeiten  dieses 
Programms  kurz  erläutert  werden. 
Im  Datensatz  sind  die  Felder  Buchti¬ 
tel,  Autor,  Sachgebiet,  Stichworte 
und  Archivnummer  gespeichert. 
Um  einen  Satz  wiederzufinden,  muß 
erst  angegeben  werden,  nach  wel 
ehern  Feld  gesucht  werden  soll,  zum 
Beispiel  (B)  =  Autor.  In  die  dann  er¬ 
scheinende  Zeile  wird  der  Name 
eingegeben.  Für  die  Suche  kann 
auch  ein  Intervall  von  —  bis  vorge¬ 
geben  werden.  Die  Ergebnisse  las¬ 
sen  sich  einzeln  oder  als  Liste  aus- 
drucken.  Eine  Gesamtliste  kann 
auch  nach  einem  bestimmten  Feld 
sortiert  werden.  Für  die  Liste  lassen 
sich  bestimmte  Felder  unter¬ 
drücken,  für  jede  Spalte  ist  auch  ei¬ 
ne  Summenbildung  möglich. 

SM-Adreva/64 

Das  Programm  wird  mit  einer 
kurzgefaßten  deutschen  Beschrei¬ 
bung,  leider  ohne  Stichwortver¬ 
zeichnis,  ausgeliefert.  Dafür  wird  je¬ 
doch  neben  der  rein  verbalen  Be¬ 
schreibung  sehr  schön  in  kleinen 
Ablaufplänen  die  logische  Reihen¬ 
folge  von  Funktionstasten  und  Da¬ 
teneingaben  erläutert,  so  daß  sich 
auch  der  Anfänger  gut  zurechtfin¬ 
det.  Aus  dem  Start-Menü  lassen  sich 
zunächst  Commodore-  oder  deut¬ 


sche  Tastatur,  die  Druckparameter 
und  die  Farbeinstellungen  wählen. 
Danach  kann  die  Adreßeingabe  be¬ 
ginnen. 

Die  fest  definierte  Maske  (Bild  4) 
enthält  neben  den  üblichen  Adreß- 
zeilen  noch  die  Felder  Kunden- 
Nummer  (3-stellig),  Suchbegriff 
(10-stellig),  Telefon-  und  Telex-Num¬ 
mer,  sowie  fünf  weitere  Zusatz-Text¬ 
zeilen. 

Am  unteren  Bildschirmrand  ist 
während  der  gesamten  Verarbei¬ 
tung  die  jeweilige  Funktionstasten¬ 
belegung  eingeblendet,  zum  Bei¬ 
spiel  speichern,  löschen,  drucken, 
Programmende. 

Erfaßte  Adressen  können  über 
die  Kunden-Nummer  oder  über  den 
Eintrag  im  Feld  »Suchbegriff«  wie¬ 
dergefunden  werden.  Von  einem 
gefundenen  Satz  kann  man  jeweils 
vor-  und  zurückblättern. 

Der  Ausdruck  einer  Adresse  ist 
fest  definiert  und  gibt  jedes  Feld  in 
einer  neuen  Zeile  aus.  Standardmä¬ 
ßig  können  auch  Adreßlisten  oder 
Adreßaufkleber  erstellt  werden. 
Dabei  ist  die  Auswahl  über  Kunden- 
Nummer  (von-bis)  oder  Suchbegriff 
(von-bis)  möglich. 

Die  Ausgabe  erfolgt  in  der  ent¬ 
sprechenden  Sortierung. 

SM-Adreva/64  kann  kombiniert 
werden  mit  der  Textverarbeitung 
SM-Text/64.  Der  mit  der  Textverar- 
beitung  erstellte  Brief  kann  dann 
Kürzel  enthalten,  für  die  die  entspre¬ 
chenden  Daten  aus  der  Adreßver- 
waltung  übernommen  werden.  Da¬ 
mit  lassen  sich  auf  einfache  Weise 
auch  Form-  und  Serienbriefe  erstel¬ 
len. 

SM-Adreva/64  ist  ein  Programm, 
das  zwar  speziell  auf  die  Adreßver- 
waltung  zugeschnitten  ist,  das  aber 
dafür  durch  gute  Benutzerführung 
besonders  einfach  zu  bedienen  ist. 

Bereits  beim  Lesen  des  umfang¬ 
reichen  Handbuchs  wird  klar,  daß 
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Bild  3.  Datei 
64  ist  das 
preisgünstigste 
Programm 


-Ausgabe  auf  Bildschirm  oder  Drucker 
-Neueingabe,  Korrektur  oder  Löschung 
-Suchen  von  bestimmten  Datensätzen 


»rucker ansteuerun« 


wird  definiert! 


Druckausgabe  ein-  oder 

Protokoll-  /  QuittierungsdruckHOdus 
Papier-  /  Druckparaneter  einstellen 
Drucke  sortiertes  Gesantverzeichnis 


skette 


für 


neue 


»aten 


iskette  oder  Daten  löschen 


Wer  sich  zunächst  überfordert 
fühlt,  dem  sei  empfohlen,  das  mitge¬ 
lieferte  Beispiel-Programm  »Litera¬ 
turverwaltung«  durchzuspielen,  um 
mit  ISM/64  vertraut  zu  werden.  Der 
verwendete  Datensatz  besteht  aus 
zehn  Feldern:  ISBN-Nummer,  Autor, 
Titel,  Buchart,  Inhalt,  Verlag,  Jahr, 
Ort,  Preis,  Signatur.  Die  ISBN-Num¬ 
mer  ist  dabei  als  eindeutiger  Schlüs¬ 
sel,  Autor  und  Titel  sind  als  mehr¬ 
deutige  Schlüssel  definiert.  Aus  den 
Menüs  wird  Bearbeiten  (bb),  Anle¬ 
gen  (a)  und  Neuschreiben  (n)  ausge¬ 
wählt,  danach  können  Daten  einge¬ 
geben  werden. 

Mit  » 1 «  wird  die  Funktion  Lesen 
aufgerufen.  Über  den  vollen  oder 
verkürzten  Schlüssel  wird  auf  die 
eingegebenen  Sätze  zugegriffen. 


Bild  4.  SM-Adreva  beim  Anzeigen  eines  Datensatzes.  Auf  ein  Foto 
zu  SM-ISM/64  wurde  verzichtet,  da  der  Bildschirmaufbau  vom 
Benutzer  selbst  programmiert  werden  muß. 


Bild  5.  Superbase  ist  das  wohl  leistungsfähigste 
Dateiverwaltungsprogramm . 


das  Produkt  ISM/64  (Index  Seguen- 
tial  File  Manager)  sich  nicht  ohne 
weiteres  für  den  Anfänger  eignet. 
Um  all  die  vielfältigen  Möglichkei¬ 
ten  zu  nutzen,  muß  man  schon  tiefer 
emsteigen.  Dem  Profi  dagegen  wird 
bereits  jetzt  das  Herz  höher  schla¬ 
gen.  ISM/64  ist  vollständig  in  6502- 
Maschinensprache  geschrieben 

SM-ISM/64 

und  läuft  außer  auf  dem  C  64  auch 
auf  dem  8032  und  8096  von  Commo- 
dore.  Hier  zunächst  einige  wesentli¬ 
che  Eigenschaften: 

—  variable  oder  feste  Satzlänge  von 
2  bis  31875  Byte 

—  bis  zu  125  Felder  pro  Satz 

—  Felder  fester  oder  variabler  Län¬ 
ge 

—  Feldlänge  maximal  255  Byte 

—  maximal  40  Schlüsselfelder 

—  Schlüssel  können  auch  nachträg¬ 
lich  definiert  oder  gelöscht  werden. 

—  Schlüssel  können  eindeutig  oder 
mehrdeutig  sein. 


—  maximal  10  ISM-Dateien  können 
dem  Programm  gleichzeitig  zur  Ver¬ 
fügung  gestellt  werden. 

—  ISM  kann  auch  in  ein  Basic-Pro- 
gramm  eingebunden  werden. 

Insgesamt  wird  nach  diesem  Lei¬ 
stungsumfang  deutlich,  daß  es  sich 
bei  ISM/64  bereits  mehr  um  eine 
datenbankorientierte  Programmier¬ 
sprache  handelt. 


Bild  6.  Vizastar 
besitzt  sowohl 
Tabellenkalkulation 
mit  Grafikteil 
als  auch 
Dateiverwaltung. 

Mit  »z«  kommt  man  jederzeit  zum 
Hauptmenü  zurück.  Ein  gefundener 
Satz  kann  direkt  geändert  oder  ge¬ 
löscht  werden. 

Alles  in  allem  ist  ISM/64  ein  mäch¬ 
tiges  Progammpaket,  das  in  diesem 
Rahmen  gar  nicht  in  allen  Einzelhei¬ 
ten  aufgezeigt  werden  kann,  das 
aber  auch  sehr  hohe  Anforderun¬ 
gen  an  den  Anwender  stellt,  sofern  ► 
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ket,  das  folgende  drei  Komponenten 
beinhaltet:  Tabellenbearbeitung, 
Dateiverwaltungssystem  und  Grafi¬ 
kauswertung. 

Im  Rahmen  dieses  Vergleichs 
wird  vor  allem  die  Datenbankver¬ 
waltung  genauer  untersucht.  Eine 
Vizastar-Datenbank  ist  eine  Samm¬ 
lung  von  bis  zu  15  Dateien.  Ein  Da¬ 
tensatz  kann  bis  zu  8000  Zeichen 
beinhalten  und  sich  über  neun  »Bild¬ 
schirmkarten«  erstrecken.  Die  maxi¬ 
male  Feldlänge  beträgt  120  Zeichen. 

Alle  Vorgänge  sind  menügesteu¬ 
ert  (SPACE-Taste  zum  Weitersprin¬ 
gen,  mit  RETURN  ausführen).  Mit 
der  EXEC-Funktion  können  aber 
auch  ganze  Befehlssequenzen  vor¬ 
programmiert  werden. 


Vizastar  64 

Die  Datensatzfelder  werden  im 
elektronischen  Arbeitsblatt  festge¬ 
legt,  jedem  Feld  wird  ein  Buchsta¬ 
bencode  zugeordnet  (A-BL).  Es  kann 
ein  Schlüsselfeld  mit  30  Zeichen 
Länge  definiert  werden,  außerdem 
Formelfelder  und  beliebige  Daten¬ 
felder  (maximal  120  Zeichen).  Mit 


ADD,  REPLACE  und  DELETE  wer¬ 
den  Datensätze  eingegeben,  geän¬ 
dert  oder  gelöscht.  Der  Zugriff  er¬ 
folgt  über  den  Schlüssel  (KEY)  oder 
über  andere  Kriterien  (DATA  USE 
CRITERIA),  die  einfach  in  die  Fel¬ 
der  eingegeben  werden  (inklusive 
Vergleichsoperatoren  oder  Joker). 
Mit  dem  Befehl  DATA  TRANSFER 
lassen  sich  Daten  zwischen  elektro¬ 
nischem  Arbeitsblatt  und  Datensatz 
austauschen.  Mit  EXPORT  können 
Daten  an  andere  Programme  wie 
zum  Beispiel  die  Textverarbeitung 
Vizawrite  64  übergeben  werden, 
umgekehrt  mit  IMPORT.  Mit  RE¬ 
PORT  und  RANGE  lassen  sich  belie¬ 
bige  Felder  für  den  Listenausdruck 
zusammenstellen. 

Neben  der  Datenbank-Kompo¬ 
nente  verfügt  Vizastar  64  über  eine 
sehr  leistungsfähige  Tabellenbear¬ 
beitung  inklusive  Invertierung  und 
Window-Technik.  Der  Grafikteil  um¬ 
faßt  standardmäßig  Balken-  und  Li¬ 
niendiagramme.  Mit  einem  Grafik- 
Zusatzprogramm  sind  farbige  Ku- 
'Chengrafik  und  3D-Balkengrafik 
möglich. 

Insgesamt  bietet  Vizastar  64  eine 
Vielzahl  von  Möglichkeiten  mit  an¬ 


genehmer  Benutzerführung  in  allen 
Programmteilen. 

Ein  derartiger  Vergleich  unter¬ 
schiedlichster  Datenbanksysteme 
kann  als  Ergebnis  sicher  keinen  ein¬ 
deutigen  Favoriten  oder  Verlierer 
präsentieren.  Er  kann  nur  gleichzei¬ 
tig  über  mehrere  Produkte  Informa¬ 
tionen  liefern,  die  dem  einzelnen  In¬ 
teressenten  die  Möglichkeit  geben, 
systematisch  zu  untersuchen,  was 
für  seinen  speziellen  Anwendungs¬ 
fall  überhaupt  in  Frage  kommt.  Ge¬ 
wisse  Mindestvoraussetzungen 
müssen  sicher  erfüllt  sein,  damit 
sich  ein  Problem  mit  einem  dieser 
Produkte  überhaupt  lösen  läßt,  da¬ 
neben  sollte  natürlich  ein  vernünfti¬ 
ges  Preis-Leistungsverhältnis  Be¬ 
rücksichtigung  finden.  Weitere  An¬ 
gaben  entnehmen  Sie  bitte  der  Ta¬ 
belle, 

(Peter  Häuslein/gk) 

Bezugsquellennachweis: 

Commodore,  Lyonerstr.38.  6000  Frankfurt  71 
(Datenmanager) 

Data  Becker,  Merowingerstr.30,4000  Düsseldorf  1 
(Datamat,  Superbase) 

Dynamics.  Große  Bäckerstr.  1 1 , 2000  Hamburg  1  (Datei  64) 
Interface  Age,  Josefsburgstr.6,  8000  München  80  (Vizastar) 
für  Schweiz:  Microtron,  Brunnenweg  5,  CH-2S42  Pieterlen 
(Vizastar) 

SM  Software  AG,  Scherbaumstr.33,  8000  München  8 
(SM-Adreva,  SM-ISM) 
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Promal  —  Die  neue 
Sprache  für  Profis? 

Wir  testeten  eine  brandneue  Programmiersprache 
für  den  Commodore  64.  Promal  kommt  direkt  aus 
Amerika  und  ist  schnell  wie  Forth,  aber  übersichtlich 
wie  Pascal. 


Die  Programmiersprachen  für 
den  Commodore  64  häufen 
sich,  und  so  vergeht  kaum  ein 
Monat,  an  dem  nicht  irgendein  Her¬ 
steller  ein  neues  Produkt  als  »Die 
Sprache  für  den  Commodore  64«  an- 
preist.  Meistens  handelt  es  sich 
dann  doch  aber  nur  um  mehr 
schlechte  als  rechte  Implementatio¬ 
nen  altbekannter  Sprachen,  die  viel¬ 
leicht  noch  auf  die  Grafik-  und 
Soundfähigkeiten  des  C  64  Rück¬ 
sicht  nehmen. 

Ein  ganz  neues  Produkt  ist  dage¬ 
gen  die  Sprache  Promal,  die  erst 
letztes  Jahr  entwickelt  wurde  und 
nun  als  erstes  in  einer  Version  für 
den  C  64  lauffähig  vorliegt.  Weitere 
Versionen  für  Apple-  und  IBM-Com- 
puter  sind  in  Arbeit.  Da  Promal-Pro¬ 
gramme  auch  zwischen  verschiede¬ 
nen  Computern  austauschbar  sind, 
solange  nicht  auf  die  Maschinen¬ 
ebene  zugegriffen  wird,  dürfte  da¬ 
her  bald  ein  breites  Software- 
Angebot  zur  Verfügung  stehen. 

Was  ist  Promal? 

Promal  ist  die  Abkürzung  für  Pro¬ 
grammen  Micro  Applications  Lan- 
guage  und  hat  überhaupt  nichts  mit 
Comal  zu  tun.  Promal  bietet  die  Mög¬ 
lichkeit,  strukturiert  zu  programmie¬ 
ren,  ja  erzwingt  dieses  ähnlich  wie 
Pascal  sogar,  ist  dabei  aber  gleich¬ 
zeitig  so  schnell  und  maschmennah 
wie  Forth. 

Promal  besteht  aus  drei  Teüen: 
Dem  Executive,  dem  Editor  und 
dem  Compüer.  Der  Executive  ist 
ähnlich  einem  Interpreter  organi¬ 
siert  und  enthält  den  Kern  von  Pro¬ 
mal  sowie  die  Input/Output-Routi¬ 
nen  und  die  Befehle,  die  direkt  aus¬ 
geführt  werden  können.  Über  den 
Executive  tritt  der  Benutzer  mit  dem 
Promal-System  in  Verbindung.  Edi¬ 
tor  und  Compüer  werden  vom  Exe¬ 
cutive  aus  auf  gerufen.  Eine  Pro¬ 
grammierung  in  Promal  ist  über  den 
Executive  nicht  möglich,  wohl  aber 
lassen  sich  bereits  compilierte  Pro¬ 
gramme  starten.  Es  können  mehrere 
Programme  gleichzeitig  im  Spei- 
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eher  stehen:  Promal-Programme 
sind  vollkommen  relokatibel  (im 
Speicher  verschiebbar)  und  können 
so  jederzeit  zu  den  schon  im  Spei¬ 
cher  stehenden  Programmen  hinzu- 
geladen  werden.  Der  Aufruf  eines 
Programmes  erfolgt  einfach  durch 
die  Nennung  seines  Namens.  Befin¬ 
det  sich  das  entsprechende  Pro¬ 
gramm  nicht  im  Speicher,  wird  es 
automatisch  nachgeladen. 

Die  Bedienung  des  Executive  ist 
äußerst  komfortabel:  So  sind  zum 
Beispiel  die  Funktionstasten  belegt, 
und  es  lassen  sich  schon  einmal  ge¬ 
machte  Befehls-Eingaben  mittels 
Tastendruck  zum  Korrigieren  wie¬ 
derholen. 

Komfortabler  Editor 

Soll  nun  ein  neues  Promal-Pro¬ 
gramm  geschrieben  werden,  dann 
wird  zunächst  der  Editor  aufgeru¬ 
fen.  Es  handelt  sich  dabei  schon  fast 
um  ein  kleines  Textsystem  mit  hori¬ 
zontalem  Scrolling  (80  Zeichen  pro 
Zeile),  schnellem  vertikalem  Scrol¬ 
ling  in  beide  Richtungen,  Funktions¬ 
tastenbelegung,  ausführlichem  Be¬ 
fehlssatz  und  vielen  anderen  De- 
taüs.  Hat  man  eine  Weüe  mit  diesem 
schnellen  und  komfortabeln  Editor 
gearbeitet,  so  ist  man  recht  erstaunt, 
wenn  man  im  Handbuch  liest,  daß  er 
vollständig  in  Promal  geschrieben 
wurde.  Der  Editor  ist  somit  eines  der 
besten  Beispiele  für  die  Leistungsfä¬ 
higkeit  von  Promal. 

Ebenso  in  Promal  geschrieben  ist 
der  Compüer.  Es  kann  wahlweise 
auf  Diskette  oder  im  Speicher  com- 
piliert  werden.  Auch  hier  erstaunte 
die  enorme  Geschwindigkeit,  zu¬ 
mindest  solange  keine  Diskettenzu¬ 
griffe  notwendig  sind. 

Wie  sieht  nun  so  ein  Promal-Pro¬ 
gramm  aus?  Auf  den  ersten  Blick 
glaubt  man,  es  mit  einer  Mischung 
aus  Pascal  und  Basic  zu  tun  zu  ha¬ 
ben.  Es  gibt  keinerlei  Zeüennum- 
mern,  aber  Einrückungen.  In  jeder 
Zeile  steht  nur  ein  einziger  Befehl. 
Zu  Anfang  eines  jeden  Promal-Pro¬ 
grammes  steht  ein  Deklarationsteil, 


in  dem  alle  Variablen,  Funktionen 
und  Prozeduren  (Unterprogramme) 
ähnlich  wie  in  Pascal  definiert  wer¬ 
den  müssen. 

Es  gibt  sehr  viele  veschiedene 
Kontrollstrukturen:  Neben  dem  obli¬ 
gatorischen  IF ...  ELSE  (ohne  THEN!) 
oder  FOR  (ohne  NEXT)  gibt  es  auch 
WHILE,  REPEAT...UNTIL,  und  sogar 
ein  CHOOSE,  das  in  etwa  dem 
ON...GOTO  (Basic)  oder  dem  CASE 
(Pascal)  entspricht,  aber  noch  flexi¬ 
bler  ist. 

Bitte  einrücken! 

Wer  sich  fragt,  wo  das  NEXT  oder 
das  THEN  hin  verschwunden  sind: 
Promal  zwingt  zu  strukturiertem  Pro¬ 
grammieren,  weil  Einrückungen 
syntaktische  Bedeutung  haben!  Ei¬ 
ne  IF..THEN..ELSE-Abfrage  muß  in 
Promal  folgendermaßen  program¬ 
miert  werden: 

IF  <  Bedingung  > 
befehll 
befehl2 

befehlN 

ELSE 

befehll 

befehl2 

befehlN 

befehll 

befehl2 

Wichtig  ist,  daß  die  Befehlsgrup¬ 
pen,  die  bedingt  ausgeführt  werden 
sollen,  um  zwei  Stellen  eingerückt 
werden.  Der  Promal-Compiler 
nimmt  an,  daß  die  IF...ELSE-Anwei- 
sungzu  Ende  ist,  wenn  Befehle  nicht 
mehr  eingerückt  sind. 

Dieses  Prinzip  gilt  auch  für  alle  an¬ 
deren  Kontrollstrukturen.  Die  aus 
Basic  bekannten  FOR-NEXT-Schlei- 
fen  benötigen  in  Promal  kein  NEXT 
mehr,  das  Schleifenende  wird  am 
Fehlen  der  Einrückung  erkannt. 
Promal  kennt  allerdings  einen  Be¬ 
fehl  NEXT,  der  aber  eine  andere  Be¬ 
deutung  hat,  Mit  ihm  kann  an  den 
Anfang  der  gerade  bearbeiteten 
Schleife  zurückgesprungen  wer¬ 
den.  Dies  funktioniert  nur  bei  REPE- 
AT...UNTIL  und  WHILE,  nicht  bei 
FOR.  Das  genaue  Gegenteü  von 
NEXT  ist  BREAK.  Mit  diesem  Befehl 
wird  die  gerade  bearbeitete  Kon¬ 
trollstruktur  ordnungsgemäß  abge¬ 
schlossen  und  verlassen,  es  erfolgt 
sozusagen  ein  GOTO  zur  nächsten 
nicht  eingerückten  Zeile. 

Natürlich  können  Kontrollstruktu¬ 
ren  auch  beliebig  ineinander  ge¬ 
schachtelt  werden,  dann  sind  halt 
mehr  Einrückungen  notwendig. 

Promal  kennt  vier  verschiedene 
Variablentypen:  BYTE,  INTeger, 
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WORD  und  REAL.  String-Variablen 
sind  nicht  vorgesehen,  man  muß 
sich,  ähnlich  wie  in  Forth,  mit  Adreß- 
variablen  behelfen.  Das  bedeutet, 
man  legt  einen  String  als  Bytefolge 
irgendwo  im  Speicher  ab  und  weist 
die  Anfangsadresse  des  Strings  ei¬ 
ner  Variablen  zu.  Über  diese  Varia¬ 
ble  kann  man  dann  im  weiteren  je¬ 
derzeit  auf  den  String  zugreifen. 

Das  mag  auf  den  ersten  Blick  et¬ 
was  umständlich  erscheinen,  ist 
aber  in  der  Praxis  sehr  flexibel  und 
schnell,  insbesondere,  da  es  von  ei¬ 
nigen  Promal-Standardprozeduren 
unterstüzt  wird. 

An  Feldvariablen  sind  nur  eindi¬ 
mensionale  Arrays  erlaubt.  Doch 
damit  läßt  sich  bereits  eine  ganze 
Menge  anfangen.  Arrays  können 
nämlich  an  jedem  vom  Programmie¬ 
rer  vorgesehenen  Speicherplatz  ab¬ 
gelegt  werden.  Beispielsweise  kann 
man  ein  solches  Array  auf  den 
Bildschirm-Speicherbereich  legen . 
Durch  einfache  Zuweisung  von  Wer¬ 
ten  an  Array-Elemente  wird  dann  je¬ 
desmal  die  entsprechende  Spei¬ 
cherstelle  im  Bildschirm  angespro¬ 
chen.  Dabei  ergibt  sich  neben  einer 
besseren  Übersichtlichkeit  des  Pro¬ 
grammes  auch  noch  ein  Zeitgewinn. 

Verbesserte 

Fließkomma-Arithmetik 

Im  Gegensatz  zu  vielen  anderen 
Programmiersprachen  für  den  C  64 
wurde  bei  der  Fließkomma-Arith¬ 
metik  in  Promal  nicht  auf  die  bereits 
im  Basic-ROM  vorhandenen  Routi¬ 
nenzurückgegriffen.  Promal  verfügt 
über  eine  völlig  neue  Fließkomma- 
Arithmetik,  die  die  des  Commodore 
64-Basic  bei  weitem  übertrifft. 
REAL-Variablen  haben  11  signifikan¬ 
te  Stellen  (9  bei  Basic),  dennoch  er¬ 
folgen  alle  Berechnungen  damit  fast 
doppelt  so  schnell.  Damit  ist  die  rei¬ 
ne  Ausführungszeit  der  Rechenope¬ 
ration  gemeint.  Da  Promal-Program¬ 
me  immer  compiliert  werden,  ist  die 
tatsächliche  Geschwindigkeit  von 
Programmen  noch  um  ein  Vielfa¬ 
ches  höher, 

Allerdings  kennt  Promal  nur  die 
vier  Grundrechenarten  und  logi¬ 
sche  Operationen.  Funktionen  wie 
Sinus  oder  Logarithmus  werden  als 
Promal-Source-Code  mitgeliefert. 
Nach  der  Compilation  sind  diese  in 
Promal  geschriebenen  Routinen  im¬ 
mer  noch  genauer  und  sogar  ein 
wenig  schneller  als  die  Original- 
Commodore-ROM-Routinen,  was 
wohl  ein  beeindruckender  Beweis 
der  Leistungsfähigkeit  von  Promal 
ist. 

Wer  in  einem  Programm  ohne 


REAL-Zahlen  auskommt,  kann  die 
REAL-Arithmetik  vollständig  aus 
Promal  entfernen  und  gewinnt  so  zu¬ 
sätzlich  wertvollen  Speicherplatz. 
Compilate  (übersetzte  Programme) 
können  so  einen  Umfang  von  bis  zu 
35  KByte  haben.  Der  Source-Code 
muß  dann  allerdings  mit  einigen 
Tricks  geschrieben  werden,  da  der 
garantiert  nicht  in  den  Speicher 
paßt,  Der  Compiler  selbst  umfaßt 
beispielsweise  als  Sorce-Code  2400 
Zeilen,  benötigt  aber  compiliert  nur 
noch  13  KByte. 

Überzeugend  ist  auch  das  Kon¬ 
zept  der  Prozeduren  und  Funktio¬ 
nen.  Pascal-Kenner  wissen,  daß  Pro¬ 
zeduren  das  Gegenstück  zu  Unter¬ 
programmen  sind,  und  daß  Funktio¬ 
nen  ein  spezieller  Typ  von  Prozedu¬ 
ren  sind,  die  Parameter  an  das 
Hauptprogramm  zurückgeben.  Wie 
in  Pascal  können  Prozeduren  und 
Funktionen  lokale  Variable  haben, 
das  sind  Variable,  die  nur  der  Proze¬ 
dur  bekannt  sind,  und  deswegen 
gleiche  Namen  wie  völlig  andere 
Variablen  im  Hauptprogramm  ha¬ 
ben  dürfen,  ohne  daß  Konflikte  oder 
Fehler  auftreten. 

In  Promal  gibt  es  noch  eine  Unter¬ 
scheidung  bei  lokalen  Variablen: 
Diese  können  bei  Bedarf  ihren  In¬ 
halt  bis  zum  nächsten  Auf:  1  ier  Pro¬ 
zedur  behalten.  Eine  Prozedur  kann 
also  beispielsweise  zählen,  wie  oft 
sie  hintereinander  aufgerufen  wur¬ 
de.  Dies  ist  sehr  wichtig,  will  man  re¬ 
kursive  Funktionen  programmie¬ 
ren.  Rekursion  bedeutet,  daß  eme 
Prozedur  oder  Funktion  sich  selbst 
aufruft  und  ist  in  Promal  beliebig  er¬ 
laubt.  Allerdings  ist  die  Rekursions¬ 
tiefe  auf  zirka  40  Aufrufe  be¬ 
schränkt,  sonst  läuft  der  Prozessor¬ 
stack  über,  und  das  System  befindet 
sich  in  einem  »Undefinierten  Zu¬ 
stand«,  etwas  weniger  fein  auch  als 
»Absturz«  bezeichnet. 

Schnittstelle  zur 
Maschinensprache 

Obwohl  Promal  bereits  unglaub¬ 
lich  schnell  ist,  hat  man  trotzdem 
mehrere  Schnittstellen  zur  Maschi¬ 
nensprache  eingebaut,  um  eigene 
Maschinenroutinen  oder  solche  aus 
dem  Basic-ROM  in  Promal-Pro¬ 
gramme  zu  integrieren.  Dabei  ist  so¬ 
gar  die  Kontrolle  über  die  Prozes¬ 
sorregister  (A,  X,  Y  und  P)  von  Pro¬ 
mal  aus  vorgesehen.  Parameter¬ 
übergabe  kann  über  gemeinsam 
benutzte  Speicherstellen,  die  Pro¬ 
zessorregister  oder  am  aller  ein¬ 
fachsten  über  den  Prozessorstack 
erfolgen.  Damit  ist  Promal  fast  ge¬ 
nauso  maschinennah  wie  Forth, 


aber  dafür  um  einiges  komfortabler. 

Die  drei  mitgelieferten  Handbü¬ 
cher,  wie  üblich  in  Englisch,  umfas¬ 
sen  250  DIN  A4-Seiten  und  bieten  ei¬ 
ne  umfassende  Einführung  in  die 
Sprache.  Da  hier  sehr  viel  mit  Bei¬ 
spielen  gearbeitet  wird,  fällt  es 
leicht,  sich  in  das  Promal-Konzept 
einzuarbeiten. 

Vorbildliche 

Dokumentation 

Eines  sei  noch  zur  Erhältlichkeit 
von  Promal  gesagt:  Es  gibt  drei  ver¬ 
schiedene  Promal-Versionen,  die 
aber  aufwärtskompatibel  sind.  Die 
Demo-Version  umfaßt  den  komplet¬ 
ten  Sprachschatz  und  unterscheidet 
sich  von  der  End-User-Version  nur 
dadurch,  daß  sie  keine  Druckeraus¬ 
gabe  und  kein  Abspeichern  von 
Programmen  auf  Diskette  erlaubt. 
Sie  ist  also  sozusagen  nur  zum  »Rein¬ 
schnuppern«  gedacht.  Dafür  darf,  ja 
soll  sie  sogar  kopiert  und  an  Freun¬ 
de  weitergegeben  werden.  Wer  in¬ 
teressiert  ist,  kann  sich  dann  die 
End-User-Version  beim  Hersteller 
kaufen  und  mit  dem  Programmieren 
voll  loslegen.  Dieses  Konzept  kann 
man  anderen  Anbietern  von  Softwa¬ 
re  sicher  nur  zur  Nachahmung  emp¬ 
fehlen,  da  der  Anwender  die  oft¬ 
mals  recht  teuren  Programme  dann 
nicht  mehr  »auf  Verdacht«  kaufen 
muß,  um  erst  hinterher  enttäuscht 
festzustellen,  daß  das  Programm 
nicht  seinen  Erwartungen  ent¬ 
spricht.  Für  die  Produzenten  wirk¬ 
lich  guter  Software  hätte  dieses  Ver¬ 
fahren  ebenfalls  nur  Vorteile  —  der 
Bekanntheitsgrad  erhöht  sich,  der 
Anwender  kann  sich  ein  Bild  von 
der  Qualität  der  Software  machen. 

Doch  wieder  zurück  zu  Promal. 
Die  geschriebenen  und  compilier- 
ten  Programme  benötigen  immer 
noch  den  Promal-Executive-Teil,  um 
lauffähig  zu  sein.  Deswegen  gibt  es 
noch  eine  »Developers-Version«,  die 
zusätzlich  den  Promal-Kern  in  die 
übersetzten  Programme  einbindet, 
so  daß  sie  auch  ohne  Promal  laufen 
können. 

Zum  erstenmal  gibt  es  mit  Promal 
eine  maschinennahe  und  dennoch 
einfache  und  komfortable  Sprache 
für  Mikrocomputer.  Jedem,  dem 
Forth  zu  unverständlich  und  Pascal 
zu  langsam  ist,  kann  Promal  nur 
empfohlen  werden,  denn  diese 
Sprache  verbindet  sozusagen  diese 
zwei  Programmierwelten  miteinan¬ 
der,  (Bons  Schneider/ev) 


Info:  Promal  ist  in  den  verschiedenen  Versionen  erhältlich 
bei  Systems  Management  Associates,  3700  Computer  Dri¬ 
ve,  RO.Box  20023.  Raletgh,  North  Carolina  N.C.  27619,  USA. 
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Forth-wärts  mit  M&T-Forth  64 

Inzwischen  gibt  es  fast  schon  so  viele  Forth-Versionen  für  den  Commodore  64  wie 
Basic-Erweiterungen.  Gerade  neu  auf  dem  Markt  ist  eine  Version,  die  sich  strikt 
an  den  FIG-Standard  hält  und  damit  völlige  Software-Kompatibilität  verspricht. 


Forth  hat  in  der  letzten  Zeit  einen 
enormen  Bekanntheitsgrad  er¬ 
reicht.  Was  vor  einem  Jahr  noch 
ein  Geheimtip  unter  Insidern  war, 
liegt  jetzt  von  den  vielen  Herstellern 
in  den  verschiedensten  Ausführun¬ 
gen  vor.  Das  grundlegende  Konzept 
der  Programmiersprache  Forth  ist 
von  uns  schon  in  früheren  Ausgaben 
erläutert  worden,  daher  seien  an 
dieser  Stelle  nur  noch  einmal  die 
wichtigsten  Unterschiede  zu  Basic 
stichwortartig  angesprochen: 

Forth  ist  eine  sehr  maschinennahe 
Sprache,  deren  grundlegendes 
Prinzip  der  Stack  ist.  Alle  Berech¬ 
nungen  werden  grundsätzlich  in  der 
Weise  ausgeführt,  daß  zunächst  die 
Operanden  auf  den  Rechenstack 
gebracht  werden  und  anschließend 
erst  die  gewünschte  Operation  aus¬ 
geführt  wird  (ähnlich  wie  bei  Ta¬ 
schenrechnern  mit  der  »umgekehr¬ 
ten  polnischen  Notation«  UPN).  Eine 
Addition  schreibt  sich  damit  so: 

5  7  + 

Programmierung  in  Forth  besteht 
darin,  neue  Worte  zu  definieren,  die 
bestimmte  Funktionen  ausführen. 
Beispiel: 

ADD1  1  + 

Eine  Wortdefinition  beginnt  mit  ei¬ 
nem  Doppelpunkt  und  endet  mit  ei¬ 
nem  Semikolon.  Hinter  dem  Doppel¬ 
punkt  folgt  der  Name  des  neuen 
Wortes,  im  Beispiel  also  »ADD1«.  An¬ 
schließend  folgen  die  Befehle  (Wor¬ 
te)  die  beim  Aufruf  von  ADD1  ausge¬ 
führt  werden  sollen.  AD  Dl  schiebt 
also  die  Zahl  Eins  auf  den  Stack  und 
führt  anschließend  eine  Addition 
durch.  Im  Endeffekt  wird  also  der 
vor  dem  Aufruf  von  ADD1  auf  dem 
Stack  befindliche  Zahlenwert  um 
eins  erhöht.  In  analoger  Weise  kann 
man  ganze  Programmsysteme  aus 
immer  leistungsfähigeren  Forth- 
Worten  aufbauen.  Forth  arbeitet  aus¬ 
schließlich  mit  Integer-Zahlen.  Das 
führt  im  Zusammenhang  mit  der 
Compilation  aller  Eingaben  zu  sein 
effizienten  Programmen. 

Das  neueste  Kind  auf  dem  Forth- 
Markt  ist  eine  Version  der  Markt  & 
Technik  Verlags  AG.  M&T-Forth  64 
hält  sich,  soviel  sei  hier  schon  ge¬ 
sagt,  strikt  an  den  Semi-Standard 
der  Forth-Interest-Group  (FIG).  Na¬ 
türlich  finden  sich  hier  sehr  viele  Be- 
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fehle,  die  auf  den  C  64  zugeschnitten 
worden  sind.  Insgesamt  umfaßt  das 
Grundvokabular  von  M&T-Forth  64 
rund  280  Worte.  Dazu  kommen  dann 
einzelne  auf  der  Programmdiskette 
mitgelieferte  Programme,  die  ja  bei 
Forth  nichts  anderes  als  Befehlser¬ 
weiterungen  sind. 

M&T-Forth  64  arbeitet  wahlweise 
mit  Kassette  und  Diskette  zusam¬ 
men.  Das  Prinzip  des  virtuellen 
Speichers,  das  heißt,  daß  sich  alle 
»Screens«  (Textabschnitte)  auf  der 
Diskette  befinden,  wurde  hier  aus 
Geschwindigkeitsgründen  nicht  an¬ 
gewandt. 

24-KByte-RAM-Floppy 

M&T-Forth  64  simuliert  vielmehr 
eine  RAM-Disk,  die  40  Screens  von 
jeweils  16  Zeilen  ä  38  Zeichen  ent¬ 
hält.  Diese  RAM-Disk  kann  jederzeit 
auch  teilweise  auf  Kassette  oder  der 
echten  Diskette  ges&hart  werden. 
Ebenso  sind  schon  compilierte 
Spracherweiterungen  lad-  und  spei¬ 
cherbar.  Bei  Diskettenbetrieb  las¬ 
sen  sich  auch  Directories  listen  oder 
der  Fehlerkanal  lesen  und  schrei¬ 
ben.  Da  außerdem  Befehle  wie 
OPEN  und  CLOSE  im  Sprachkern 
eingebaut  wurden,  kann  auch  eine 
Druckerausgabe  recht  einfach  er¬ 
folgen. 

Alles  was  nicht  in  den  Sprachkern 
von  Forth  gehört,  wurde  konsequent 
auf  die  Programmdiskette  ausge¬ 
lagert.  Dazu  gehören  der  Forth- 
Assembler,  der  Zeileneditor  sowie 
Grafik-  und  Sound-Befehlserweite¬ 
rungen.  Diese  werden  ja  nicht  stän¬ 
dig  benötigt,  und  würden  sonst  im¬ 
mer  nur  Platz  im  Computer  wegneh¬ 
men.  Das  Nachladen  des  Editors 
mag  am  Anfang  etwas  umständlich 
wirken,  hat  dann  aber  den  Vorteil, 
daß  er  vom  Benutzer  jederzeit  er¬ 
weitert  oder  völlig  umgebaut  wer¬ 
den  kann,  ohne  den  Sprachkern  ver¬ 
unstalten  zu  müssen. 

Daß  Forth  recht  maschinennah 
und  somit  schnell  ist,  ist  allgemein 
bekannt.  Trotzdem  enthalten  viele 
gute  Forth-Systeme  Schnittstellen 
zur  Maschinensprache  und  sogar 
einen  Assembler.  Ebenso  verhält  es 
sich  bei  M&T-Forth  64.  Der  mitgelie¬ 
ferte  Assembler  hat  den  Vorteil,  daß 
in  Assembler  strukturiert  program¬ 


miert  werden  kann.  Zeitkritische 
Aufgaben  können  somit  elegant  und 
übersichtlich  realisiert  werden.  Zu¬ 
sätzlich  zum  Assembler  wird  auch 
ein  Forth-Monitor  mitgeliefert.  Die¬ 
ser  Mini-Monitor  kann  es  zwar  nicht 
mit  dem  SMON  aufnehmen,  leistet 
aber  sehr  gute  Dienste,  wenn  man 
unter  Forth  schnell  mal  eine  Mög¬ 
lichkeit  braucht,  »direkt  an  die  Ma¬ 
schine«  zu  gehen. 

Integrierter  Assembler 

Der  mitgelieferte  Editor  ist  dage¬ 
gen  recht  spartanisch.  Es  ist  ein  ein¬ 
facher  Standard-Zeileneditor,  wie 
ihn  fast  jede  Forth-Version  enthält. 
Ein  komfortabler  Full-Screen-Editor 
wäre  zwar  wünschenswert,  doch 
läßt  sich  mit  dem  Zeileneditor  auch 
recht  gut  arbeiten,  insbesondere,  da 
Forth  ja  keine  Sprache  ist,  bei  der 
man  drauflosprogrammieren  kann. 

Sehr  interessant  sind  die  mitgelie¬ 
ferten  Grafik-  und  Sound-Befehle  für 
Forth.  Da  ist  zum  Beispiel  ein  einfa¬ 
cher  Spriteeditor,  (in  Forth  gerade  11 
Zeilen  lang)  vorhanden. 

Der  Grundbefehlssatz  wurde  ab 
sichtlich  klein  gehalten,  damit  der 
Endbenutzer  sich  die  zusätzlichen 
Befehle  an  seme  individuelle  An¬ 
wendung  anpassen  kann,  ein  in 
Forth  ja  ganz  natürlicher  Vorgang. 

Eine  Reihe  von  mitgelieferten  zu¬ 
sätzlichen  Beispielprogrammen, 
darunter  das  Nicht-Standard-Wort 
CASES,  das  trotzdem  gerne  verwen¬ 
det  wird,  runden  das  Gesamtbild 
des  M&T-Forth  64  ab. 

Fazit 

Insgesamt  gesehen  liegt  mit  M&T- 
Forth  64  eine  Forth-Version  vor,  die 
zwar  nicht  durch  enorme  Befehls¬ 
vielfalt  glänzt,  wie  andere  Versionen 
dieser  Sprache,  dafür  aber  eine  um¬ 
so  solidere  Basis  für  Eigenentwick¬ 
lungen  ist.  Da  der  FIG-Standard 
strikt  eingehalten  wird,  dürfte  die 
Anpassung  von  schon  geschriebe¬ 
nen  Forth-Programmen  überhaupt 
keine  Probleme  aufwerfen.  Alles  in 
allem  also  eine  Forth-Version,  mit 
der  Anfänger  wie  Fortgeschrittene 
gleichermaßen  gut  bedient  sind. 

(B.  Schneider/ev) 

Info:  Happy  Software.  Markt  &  Technik  Verlag  AG.  Hans- 
Pinsel-Str.  2,  8013  Haar  bei  München.  Preis  98.-  Mark. 
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Assembler  ist  keine  Akhimie  —  Teil  10 


Auf  zum  Endspurt:  Die  letzten  4  Assembler-Befehle  werden 
in  Angriff  genommen  (jedoch  nicht  die  letzte  Folge  des 
Kurses).  Wir  steigen  ein  in  ein  unerhört  interessantes, 
wenn  auch  nicht  einfaches  Thema:  Die  Interrupt-Technik. 


Die  Assembler-Befehle  ha¬ 
ben  wir  bis  auf  vier  noch 
offenstehende  alle  behandelt. 
Diese  vier,  die  alle  mit  dem 
Interrupt-Handling  Zusammen¬ 
hängen,  sollen  diesmal  unser 
Thema  sein.  Um  nach  längerer 
Zeit  mal  wieder  auf  den  Titel  die¬ 
ser  Serie  zurückzukommen 
(nämlich  die  Alchimie!):  Wenn 
wir  diese  4  Befehle  beherr¬ 
schen,  haben  wir  den  ersten 
Schritt  zum  Meister  der  Assem¬ 
bler-Alchimie  getan.  Diese  vier 
kleinen  1-Byte-Befehle  öffnen 
uns  eine  geheime  Pforte  zu  ei¬ 
nem  Universum  an  Program- 
mier-Möglichkeiten,  von  dem 
wir  bisher  kaum  zu  träumen  ver¬ 
mochten.  Genug  der  Schwärme¬ 
rei,  erst  kommt  noch  eine  Menge 
Arbeit,  die  uns  wohl  mehrere 
Folgen  dieser  Serie  in  Atem  hal¬ 
ten  wird. 

Zuvor  noch  eine  Bemerkung: 
es  gibt  kaum  ein  Thema  im  Rah¬ 
men  der  Programmierung  in  As¬ 
sembler,  welches  so  penetrant 
häufig  Abstürze  provoziert,  wie 
das  nunmehr  angesteuerte! 
Falls  Sie  noch  keine  RESET-Taste 
an  ihrem  Computer  haben,  wird 
es  nun  höchste  Zeit.  Diese  nützli¬ 
chen  Dinger  werden  inzwischen 
schon  so  preiswert  angeb  oten 
(sehen  Sie  mal  in  den  Kleinanzei¬ 
genteil!),  daß  Sie  zur  Grundaus¬ 
stattung  eines  Assembler  Alchi¬ 
misten  zählen. 

Was  sind  Interrupts? 

Unser  Computer  ist  —  solange 
er  eingeschaltet  ist  —  ständig  mit 
irgendwelchen  Tätigkeiten  be¬ 
schäftigt.  Im  Direktmodus  hängt 
er  beispielsweise  meistens  in  ei¬ 


ner  Warteschleife  und  harrt  der 
Eingaben,  im  Programm-Modus 
arbeitet  er  sich  mit  Hilfe  der  In¬ 
terpreterschleife  durch  einen 
Basic-Befehlstext  hindurch  und 
so  weiter.  Nun  werden  Sie  ja  si¬ 
cher  schon  festgestellt  haben, 
daß  er  im  Direktmodus  auch 
den  Cursor  blinken  läßt,  in  bei¬ 
den  Modi  die  TI$-Uhr  weiter¬ 
zählt  und  weitere  Dinge  macht, 
die  anscheinend  so  nebenher 
passieren.  Schon  in  der  ersten 
Folge  dieser  Serie  aber  haben 
wir  einen  Unterschied  zwischen 
Mensch  und  Computer  festge¬ 
halten:  Der  Mensch  kann  meh¬ 
rere  Dinge  gleichzeitig  tun,  der 
Mikroprozessor  ist  nur  fähig  zu 
einer  Arbeit  pro  Zeiteinheit. 
Weil  aber  diese  Zeiteinheiten  so 
unfaßbar  kurz  sind  (etwa  eine 
Millionstel  Sekunde),  haben  wir 
Benutzer  den  Eindruck  der 
Gleichzeitigkeit. 

Wenn  dem  aber  so  ist,  wie 
macht  es  der  Computer,  daß  er 
beispielsweise  ein  Programm 
abarbeitet  und  trotzdem  die 
TI$-Uhr  weiterzählt?  Durch  Un¬ 
terbrechungen  (interrupt  =  un¬ 
terbrechen)  der  gerade  ausge¬ 
übten  Tätigkeit.  Ein  Beispiel  aus 
dem  täglichen  Leben  soll  uns 
das  illustrieren:  Sie  lesen  gera¬ 
de  diesen  Artikel,  als  das  Tele¬ 
fon  klingelt  und  ein  Freund  von 
Ihnen  wissen  möchte,  was  ei¬ 
gentlich  Unterbrechungen  sind. 
Während  Sie  es  ihm  erklären, 
fängt  in  der  Küche  der  Teekes¬ 
sel  schrill  zu  pfeifen  an.  Sie  sa¬ 
gen  Ihrem  Freund,  er  möge  sich 
einen  Moment  gedulden,  gehen 
in  die  Küche  und  nehmen  den 
Kessel  vom  Feuer.  Dann  kehren 
Sie  ans  Telefon  zurück  und 


beenden  nach  einer  Weile  das 
Gespräch.  Nach  dem  Auflegen 
des  Telefonhörers  setzen  Sie  die 
Lektüre  des  Artikels  fort,  fest 
entschlossen,  sich  nun  nicht 
mehr  unterbrechen  zu  lassen. 
Kurze  Zeit  später  klingelt  je¬ 
mand  an  der  Tür.  Sie  lassen  sich 
dadurch  nicht  stören. 

Dieses  Gleichnis  gibt  ziemlich 
genau  wieder,  was  sich  im  Com¬ 
puter  —  nur  bei  millionenfacher 
Geschwindigkeit  —  bei  Unter¬ 
brechungen  abspielt.  In  Bild  1  ist 
das  Schema  des  Ablaufes  gra¬ 
fisch  dargestellt.  In  gewisser 
Weise  ähnelt  das  ganze  dem  Ab¬ 
arbeiten  von  Unterprogrammse¬ 
quenzen.  Weshalb  program¬ 
miert  man  dann  nicht  einfach 
mittels  einiger  JSR-Aufrufe?  Da¬ 
für  hat  L.A.Leventhal  einen  ein¬ 
leuchtenden  Vergleich:  »Ein 
Unterbrechungs-System  ent¬ 
spricht  etwa  einer  Telefonklin¬ 
gel.  Sie  läutet,  wenn  ein  Anruf 
empfanden  wird,  so  daß  man 
den  Höre:  nicht  laufend  abneh¬ 
men  muß  um  festzustellen,  ob 
sich  jemand  in  der  Leitung  be¬ 
findet.«  (L.A.Leventhal,  »6502 
Programmieren  in  Assembler«, 
München  te-wi  Verlag,  S.  121).  Un¬ 
terbrechungen  können  dann  an¬ 
gefordert  und  abgearbeitet 
werden,  v/enn  sie  nötig  sind,  im 
Gegensatz  zu  Unterprogram¬ 
men,  die  erst  dann  berücksich¬ 
tigt  werden,  wenn  der  Pro¬ 
grammzähler  einen  JSR-Befehl 
erfaßt.  Um  also  schnell  reagie¬ 
ren  zu  können,  müßte  man  sehr 
oft  in  einem  Programm  eine  Un¬ 
terroutine  anspringen,  die  auf 
gewisse  Registerinhalte  prüft 
und  dann  zur  Bearbeitung  ver¬ 
zweigt  oder  —  bei  Nichtvorlie¬ 


gen  einer  Bedingung  —  im  nor¬ 
malen  Programm  weiterfährt. 
Das  kostet  unnötig  Zeit  und  Spei¬ 
cherraum.  Mancher  Verkehr 
des  Computers  mit  Peripherie 
erfordert  so  schnelle  Reaktio¬ 
nen,  daß  diese  nur  geleistet  wer¬ 
den  können  durch  Unterbre¬ 
chen  des  laufenden  Program¬ 
mes. 

Ich  denke,  daß  Sie  nun  die  Not¬ 
wendigkeit  von  Unterbrechun¬ 
gen  erkennen.  Fast  jede  CPU 
kennt  solche  Unterbrechungs¬ 
systeme.  Man  kann  sie  charakte¬ 
risieren  durch  die  Beantwortung 
folgender  Fragen: 

1)  Welche  Unterbrechungs-Ein¬ 
gänge  weist  die  CPU  auf? 

2)  Wie  reagiert  die  CPU  auf  eine 
Unterbrechung? 

3)  Wie  bestimmt  die  CPU  die  Un¬ 
terbrechungsquelle,  wenn  die 
Anzahl  der  Quellen  größer  ist 
als  die  Anzahl  der  Eingänge? 

4)  Kann  die  CPU  zwischen  wich¬ 
tigen  und  weniger  wichtigen  U n- 
terbrechungen  unterscheiden? 

5)  Wie  und  wann  wird  das  Unter¬ 
brechungssystem  freigegeben 
oder  gesperrt? 

All  diese  Fragen  werden  wir 
im  Laufe  dieser  Serie  für  unse¬ 
ren  Computer  ergründen. 

Das  Unterbre¬ 
chungssystem  der 
CPU  6510/6502 

Einige  dieser  Charakteristika 
sind  schnell  zu  zeigen: 

Zu  1:  Unsere  CPU  hat  ganau  2 
Eingänge  für  Unterbrechungen 
(wenn  man  RESET  außer  acht 
läßt,  was  wir  im  folgenden  meist 
tun  werden). 

Zu  3:  Natürlich  gibt  es  weitaus 
mehr  denkbare  Unterbre¬ 
chungsquellen  als  diese  2  Ein¬ 
gänge,  weshalb  softwaremäßig 
eine  Registerabfrage  (das  soge¬ 
nannte  Polling)  durchgeführt 
wird,  um  die  Quelle  festzustel¬ 
len. 
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(Hauptprogramm) 


Telefonat 
(IRQ  -Programm) 


Kessel  vom  Feuer 
(NMI-Programm) 


Telefon  Kessel  Türklingel 


Bild  1 .  Unterbrechungsbeispiele  im  täglichen  Leben 
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Zu  4:  Zwischen  wichtiger  und 
nicht  so  wichtiger  Unterbre¬ 
chung  kann  unsere  CPU  unter¬ 
scheiden  durch  die  Priorität  der 
beiden  Eingänge.  Wir  haben  ei¬ 
ne  sogenannte  maskierbare  Un¬ 
terbrechung,  genannt  IRQ,  wel¬ 
che  per  Befehl  ignoriert  (mas¬ 
kiert)  werden  kann  und  eine  an¬ 
dere,  nicht  maskierbare,  die  da¬ 
her  auch  NMI  (not  maskable  In¬ 
terrupt  =  nichtmaskierbare  Un¬ 
terbrechung)  genannt  wird. 
NMI  hat  eine  höhere  Priorität  als 
IRQ  und  kann  deshalb  für  die 
wichtigeren  Aufgabenstellun¬ 
gen  eingesetzt  werden. 

Zu  5:  Freigegeben  oder  gesperrt 
werden  kann  die  IRQ-Unterbre- 
chung  durch  ein  Sperrbit  (auch 
Maskenbit  genannt),  welches 
sich  als  Bit  2  im  Flaggen-Register 
des  Prozessors  befindet.  Das  ist 
die  I-Flagge.  Für  den  Empfang 
der  NMI-Unterbrechung  kann 
die  CPU  nicht  gesperrt  werden. 

Um  mal  die  Parallele  zu  unse¬ 
rem  Beispiel  zu  zeigen:  Das  Le¬ 
sen  des  Artikels  ist  die  gerade 
stattfmdende  Tätigkeit  des  Com¬ 
puters.  Die  Telefonklingel  signa¬ 
lisiert  einen  IRQ,  der  im  folgen¬ 
den  bearbeitet  wird.  Das  Pfeifen 
des  Teekessels  soll  einem  NMI 
entsprechen.  Wenn  dieser  dann 
bearbeitet  ist,  geht  es  mit  der 
Abarbeitung  des  IRQ  weiter. 
Nach  Beendigung  des  Telefona¬ 
tes  v\nrd  das  Unterbrechungs- 
Sperrbit  gesetzt  (sie  nehmen 
sich  vor,  sich  nicht  mehr  stören 
zu  lassen)  und  mit  der  normalen 
Tätigkeit  fortgefahren.  Weil  der 
nun  folgende  IRQ  damit  mas¬ 
kiert  ist,  wird  das  Türklingeln  ig¬ 
noriert, 

Die  Frage  2,  nämlich  wie  unsere 
CPU  auf  eine  Unterbrechung 
reagiert,  blieb  noch  unbeant¬ 
wortet.  Nun  soll  sie  behandelt 
werden: 

a)  Am  Ende  jedes  Befehls  über¬ 
prüft  die  CPU  automatisch  den 
Zustand  des  Unterbrechungs- 
Systems.  Wenn  an  einer  der  bei¬ 
den  Unterbrechungsleitungen 
eine  Anforderung  vorliegt  und 
diese  auch  freigegeben  ist,  be¬ 
ginnt  die  Unterbrechung  zu  wir¬ 
ken. 

b)  Zunächst  wird  der  Programm¬ 
zählerinhalt  in  der  Reihenfolge 
MSB,  LSB  auf  den  Stapel  ge¬ 
schrieben.  Danach  wandert 
noch  der  Prozessorstatus  auf 
den  Stapel  (siehe  Bild  2). 

c)  Durch  Setzen  des  Unter- 
brechungs-Sperrbits  I  werden 
weitere  maskierbare  Unterbre¬ 
chungen  (IRQ)  unterbunden. 

d)  Nun  holt  sich  die  CPU  aus  ei¬ 
nem  Vektor  ganz  am  Ende  des 
Speichers  eine  Adresse,  lädt 
diese  in  den  Programmzähler 
und  startet  auf  diese  Weise  ein 
Serviceprogramm,  das  dem 
auslösenden  Anlaß  Rechnung 
trägt.  In  der  Tabelle  1  sind  die  zu 
den  Unterbrechungsformen 
und  zum  RESET  gehörigen  Vek¬ 
toren  aufgeführt, 


01FF 


Stapelzeiger 


Bild  2.  Die  CPU  rettet  den  Programmzähler  und  das  Statusregister 
beim  Eintreten  einer  Unterbrechung  auf  den  Stapel 


Bevor  wir  uns  weiter  mit  den  so 
angesteuerten  Routinen  befas¬ 
sen,  wollen  wir  die  4  Befehle 
kennenlernen,  die  uns  noch  feh¬ 
len. 

Schlüssel  zur  Unterbrechungsprogram¬ 
mierung:  CU,  SEI,  RTI,  BRK 

Das  Sperren  der  maskierba¬ 
ren  Unterbrechung  IRQ  und  das 
Löschen  der  Maske  erfolgt 
durch  Setzen  oder  Löschen  des 
Sperrbits  im  Prozessorstatus- 
Register.  Dieses  Bit,  die  I- 
Flagge,  kann  durch  den  Befehl 
CLI  gelöscht  werden.  CU  kommt 
von  »CLear  lnterruptmask«,,was 
bedeutet  »lösche  die 'Unterbre¬ 
chungs-Maske«.  Immer  dann, 
wenn  IRQs  zugelassen  sein  sol¬ 
len  zur  Bearbeitung  durch  den 
Mikroprozessor,  muß  damit  die 
I-Flagge  gelöscht  werden.  Wie 
Sie  sehen,  ist  CLI  ein  1-Byte- 
Befehl  mit  impliziter  Adressie¬ 
rung.  Er  braucht  genau  2  Taktzy¬ 
klen  zur  Erledigung  seiner  Auf¬ 
gabe. 

Wenn  wir  später  eigene  Unter¬ 
brechungsroutinen  schreiben, 
stehen  wir  oft  vor  der  Frage,  ob 
wir  innerhalb  unseres  Unterbre¬ 
chungsprogramms  weitere  Un¬ 
terbrechungen  zulassen  wollen. 
Manchmal  ist  das  wichtig,  bei¬ 
spielsweise  bei  der  Tastaturab¬ 
frage.  Wie  wir  vorhin  erwähnt 
haben,  sperrt  die  CPU  automa¬ 
tisch  bei  der  Annahme  von  Un¬ 
terbrechungen  weitere  IRQs 
durch  Setzen  der  I-Flagge.  Einer 
der  ersten  Befehle  der  eigenen 
Unterbrechungsroutine  wird 
dann  die  Freigabe  von  Unter¬ 
brechungen  sein  durch  Löschen 
der  I-Flagge. 

SEI  bewirkt  das  Gegenteil  von 
CLI.  Der  Befehl  setzt  die  I- 
Flagge  auf  1  (»SEi  Interrupt 
mask«)  und  verhindert,  daß  der 
Mikroprozessor  weiteren  IRQs 
seine  Aufmerksamkeit  schenkt. 
Das  ist  in  den  Fällen  wichtig,  in 
denen  beispielsweise  störungs¬ 
frei  der  Inhalt  des  Charakter- 
ROM  gelesen  werden  soll  oder 
während  der  Änderung  von 
Speicherstellen,  die  die  IRQ- 
Routine  benutzt.  Wie  wichtig  das 


Sperren  von  IRQs  sein  kann,  ha¬ 
ben  Sie  eventuell  bemerkt, 
wenn  Ihnen  das  Hilfsbildschirm¬ 
programm  aus  der  6.  Folge  mal 
abgestürzt  war.  Seit  der  letzten 
Folge  —  wo  wir  die  IRQs  ge¬ 
sperrt  haben  —  ist  Ihnen  das  si¬ 
cherlich  nicht  mehr  passiert. 
Ebenso  wie  CLI  ist  SEI  ein 
1-Byte-Befehl  mit  impliziter 
Adressierung,  und  auch  er 
braucht  2  Taktzyklen  zur  Bear¬ 
beitung. 

Noch  eine  Bemerkung  zum 
Verhindern  der  IRQs.  Wir  wer¬ 
denspäter  sehen,  was  alles  wäh- 
rcn.^  der  60mal  pro  Sekunde 
äüiyerufenen  Unterbrechung 
erledigt  wird.  Jede  Routine,  die 
SEI  verwendet,  verbraucht  Re¬ 
chenzeit.  Wenn  sie  so  lange  dau¬ 
ert,  daß  eine  oder  mehrere  die¬ 
ser  regelmäßigen  IRQs  unter¬ 
bunden  werden,  kann  das  unter 
Umständen  zu  Störungen  von 
Programmabläufen  führen.  In 
solchen  Fällen  ist  es  sinnvoll,  in 
die  eigene  Routine  den  Teil  der 
regulären  IRQ-Routine  einzu¬ 
bauen,  der  im  Programmablauf 
durch  sein  Fehlen  Störungen 
verursacht.  Meistens  kann  man 
aber  durch  gute  Planung  eines 
Programmes  dieses  Problem 
umgehen. 

RTI  heißt  »ReTurn  from  Inter¬ 
rupt«,  zu  deutsch  also:  »kehre  aus 
dem  Unterbrechungsprogramm 
zurück.«  Es  entspricht  in  seinem 
Einsatz  etwa  dem  RTS  bei  Unter¬ 
programmrücksprüngen.  Wäh¬ 
rend  RTS  aber  lediglich  den  al¬ 
ten  Programmzählerinhalt  vom 
Stapel  holt  (und  noch  eine  1  da¬ 
zuaddiert),  schafft  RTI  auch  noch 
den  alten  Inhalt  des  Status- 
Registers  vom  Stapel  zurück. 
Der  genaue  Ablauf  ist  wie  folgt: 

1 )  Alten  Prozessorstatus  vom  Sta¬ 
pel  wieder  ins  Status-Register 
schieben. 

2)  Stapelzeiger  um  1  erhöhen 

3)  LSB  des  alten  Programmzäh¬ 
lers  vom  Stapel  nehmen  und  zu¬ 
rückschreiben. 

4)  Stapelzeiger  um  1  erhöhen 

5)  MSB  des  alten  Programmzäh¬ 
lers  vom  Stapel  nehmen  und  zu¬ 
rückschreiben. 


6)  Stapelzeiger  um  1  erhöhen. 

Damit  ist  der  Zustand  vor  der 
Unterbrechung  wieder  herge¬ 
stellt.  Auch  die  I-Flagge  ist  so  au¬ 
tomatisch  wieder  gelöscht,  denn 
vor  der  Unterbrechung  war  sie 
sicher  nicht  gesetzt  gewesen 
und  der  alte  Status-Zustand  ist  ja 
jetzt  wieder  vorhanden. 

RTI  ist  ebenfalls  ein  1-Byte- 
Befehl  mit  impliziter  Adressie¬ 
rung.  Seine  vollständige  Bear¬ 
beitung  dauert  6  Taktzyklen. 

Bei  eigenen  Unterbrechungs- 
Routinen  verwendet  man  häufig 
nicht  RTI,  sondern  springt  durch 
JMP  an  eine  sinnvolle  Stelle  des 
normalen  Unterbrechungspro¬ 
grammes.  Auf  diese  Weise  kann 
man  dann  die  normalen  Arbeits¬ 
gänge  der  vorprogrammierten 
Unterbrechung  oder  Teile  da¬ 
von  noch  ausführen  lassen. 

Den  Befehl  BRK  (break  =  Soft¬ 
ware-Unterbrechung)  haben  wir 
schon  verwendet.  Er  entspricht 
in  seinem  Einsatz  etwa  dem 
STOP-Befehl  in  Basic  und  dient 
wie  jeder  Befehl  dort  hauptsäch¬ 
lich  dem  Testen  von  Program¬ 
men.  Tatsächlich  unterscheidet 
sich  die  Reaktion  unserer  CPU 
bei  Auftreten  eines  BRK  kaum 
von  der  bei  einem  IRQ.  Folgen¬ 
des  passiert: 

a)  Der  Programmzähler  wird  um 
2  erhöht. 

b)  Bit  4  des  Prozessorstatusregi¬ 
sters,  die  Break-Flagge  B,  wird 
auf  1  gesetzt. 

c)  Das  MSB  des  Programmzäh¬ 
lers  wird  auf  den  Stapel  ge¬ 
bracht  und  der  Stapelzähler  um 
1  heruntergezählt. 

d)  Dasselbe  geschieht  nun  mit 
dem  LSB  des  Programmzählers 

e)  und  mit  dem  Statusregister. 

f)  Das  Unterbrechungsmasken¬ 
bit,  die  I-Flagge,  wird  auf  1  ge¬ 
setzt  um  IRQs  zu  sperren. 

g)  In  den  Programmzähler  wird 
nun  aus  dem  Vektor  FFFE/FFFF 
dieselbe  Adresse  geladen,  die 
auch  bei  IRQs  benutzt  wird.  Da¬ 
mit  startet  nun  das  Programm, 
das  diese  Unterbrechung  bear¬ 
beitet. 

Sie  sehen,  daß  der  BRK-Befehl 
ein  ziemlich  komplizierter  Ge¬ 
selle  ist.  Zwar  handelt  es  sich 
wieder  um  einen  1-Byte-Befehl 
mit  impliziter  Adressierung, 
aber  er  benötigt  immerhin  7 
Taktzyklen,  um  all  diese  Arbeit 
zu  bewältigen. 

Wir  haben  BRK  bisher  immer 
zur  Programmunterbrechung 
mit  nachfolgender  Registeran¬ 
zeige  durch  den  SMON  einge¬ 
setzt.  Der  SMON  ist  —  wie  fast  je¬ 
der  Monitor  —  so  programmiert, 
daß  ein  BRK  zur  Registeranzeige 
führt.  Das  ist  natürlich  sinnvoll 
beim  Einsatz  von  BRK  zur  Fehler¬ 
suche.  In  dem  Moment,  wo  ein 
BRK  vom  Prozessor  bearbeitet 
wurde,  kann  nur  durch  die  ge¬ 
setzte  B-Flagge  von  einem  IRQ 
unterschieden  werden.  Es  ist 
manchmal  nötig,  schon  zu  die¬ 
sem  Zeitpunkt  diesen  Unter- 
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schied  festzustellen.  Deshalb 
verwendet  man  den  nachfol¬ 
gend  beschriebenen  Test  zu 
diesem  Zweck: 

PLA 

in  den  Akku  wird  das  zuletzt  auf 
den  Stapel  geschobene  Prozes¬ 
sorstatus-Register  geholt. 

PHA 

und  sogleich  wieder  zurückge- 
schoben 

AND  #$10 

durch  die  AND-Verknüpfung  mit 
der  Binärzahl  0001  0000  kann  ei¬ 
ne  eventuell  vorhandene  B- 
Flagge  isoliert  werden. 

BNE BREAK 

Falls  eine  B-Flagge  gesetzt  war, 
ist  der  Akku  ungleich  0  und  die 
Bearbeitung  verzweigt  zum  von 
uns  konstruierten  BREAK- 
Programm.  War  der  Akku  nach 
dieser  AND-Verknüpfung  gleich 
0,  dann  erfolgt  keine  Verzwei¬ 
gung  und  es  handelt  sich  um  ei¬ 
nen  IRQ,  zu  dessen  Bearbeitung 
nun  zu  springen  ist. 

Es  gibt  noch  eine  andere  — 
gebräuchlichere  —  Möglichkeit, 
zwischen  einem  BRK  und  einem 
IRQ  zu  unterscheiden,  die  aller¬ 
dings  erst  zu  einem  späteren 
Zeitpunkt  des  computerinternen 
Unterprogrammes  erfolgt.  Von 


um  2  erhöht  worden  ist.  Manch¬ 
mal  sind  deshalb  noch  Korrektu¬ 
ren  des  Programms  nötig. 

Ich  hoffe,  daß  Sie  bisher  die¬ 
sen  Artikel  nicht  zu  frustrierend 
fanden,  denn  ständig  ist  die  Re¬ 
de  vom  eigenen  Unterbrech¬ 
ungs-Programm  und  dabei  wis¬ 
sen  Sie  —  außer  durch  BRK  — 
noch  gar  keine  Möglichkeit,  ei¬ 
nen  IRQ  oder  NMI  auszulösen, 
und  Sie  sind  sicher  noch  sehr 
vorsichtig  mit  dem  Gedanken  an 
eigene  Unterbrechungs-Routi¬ 
nen,  weil  Ihnen  ja  noch  unbe¬ 
kannt  ist,  wie  die  normale  Firm¬ 
ware  Unterbrechungen  behan¬ 
delt.  Keine  Angst:  All  das  wer¬ 
den  wir  noch  klären.  Betrachten 
Sie  diese  Folge  zum  Thema  Un¬ 
terbrechungen  vielleicht  mehr 
wie  ein  Handbuch,  in  dem  Sie 
dann,  wenn  Ihr  Verständnis  ge¬ 
stiegen  ist,  nochmal  zurückblät¬ 
tern  können: 

Wir  haben  bisher  nur  betrach¬ 
tet,  wie  unsere  CPU  reagiert, 
wenn  an  einem  der  beiden 
Unterbrechungs-Eingänge  (IRQ 
und  NMI)  eine  Unterbrechungs- 
Anforderung  vcrliegt.  Um  nun 
aber  selbst  ins  Geschehen  ein- 
greifen  zu  können,  ist  es  nötig  zu 
wissen,  wie  diese  Anforderung 


ne  gewisse  Übersicht  zu  bekom¬ 
men,  sollte  man  unterscheiden 
zwischen  primären  und  sekun¬ 
dären  Unterbrechungsquellen. 
Das  soll  kurz  erläutert  werden: 
Die  Diskettenstation  beispiels¬ 
weise  ist  über  den  seriellen  Port 
mit  dem  Computer  verbunden. 
Dieser  wiederum  steht  in  direk¬ 
tem  Kontakt  zu  2  Bausteinen,  den 
CIAs.  Erst  diese  CIAs  stehen  in 
direktem  Kontakt  zur  CPU.  Alle 
Unterbrechungs-Quellen,  die 
direkt  Signale  an  die  beiden  Un¬ 
terbrechungseingänge  unserer 
CPU  senden,  sollen  künftig  »pri¬ 
märe«  Quellen  genannt  werden, 
die  anderen,  die  nur  über  solch 
eine  primäre  Quelle  Unterbre¬ 
chungs-Anforderungen  stellen, 
werden  von  uns  als  »sekundäre« 
Quellen  bezeichnet.  Weil  wir  ir¬ 
gendwo  einen  Schnitt  machen 
müssen  —  einmal,  um  nicht  völ¬ 
lig  auszuufern  in  der  Erklärung 
von  peripheren  Geräten  (das 
soll  anderen,  kompetenteren 
überlassen  bleiben)  und  zum  an¬ 
deren,  weil  ich  mich  da  auch 
nicht  so  gut  auskenne  —  werden 
wir  uns  im  folgenden  auf  die  pri¬ 
mären  Unterbrechungsquellen 
beschränken.  Da  bleibt  aber 
noch  mehr  als  genug  zu  tun 


Den  Expansion-Port  werden 
wir  nicht  behandeln  und  einen 
RESET  nur  ziemlich  kurz  be¬ 
trachten,  weil  es  sich  dabei  ei¬ 
gentlich  nicht  um  eine  Unterbre¬ 
chung  im  bisher  definierten  Sinn 
handelt. 

Der  VIC-ll-Chip  als 
Unterbrechungs¬ 
quelle 

Soweit  ich  feststellen  konnte, 
kommt  der  VIC-II-Chip  in  Bezug 
auf  unsere  CPU  nur  als  Anforde- 
rer  von  maskierten  Unterbre¬ 
chungen  (IRQ)  in  Frage.  Die 
Handhabung  seiner  Unterbre¬ 
chungs-Anforderungen  ge¬ 
schieht  im  VIC-II-Chip  durch 
zwei  Register.  Vier  Ereignisse 
sind  eingeplant,  deren  Eintreten 
zur  Unterbrechung  führen  kann: 

1)  Rasterzeilen-Unterbrechung 

2)  Kollision  eines  Sprite  mit  Hin¬ 
tergrund 

3)  Kollision  von  Sprites  unterein¬ 
ander 

4)  Lichtgriffel-Unterbrechung. 
Die  ersten  3  Auslöser  werden 

wir  uns  in  kommenden  Folgen 
genau  ansehen  und  dabei  vie¬ 
lerlei  interessante  Möglichkei- 


7  6  5  4  3  2  1  0 

Lichtgriffel- 

Unter¬ 

brechung 

Kollision 

Sprite/ 

Sprite 

Kollision 

Sprite/ 

Hinter¬ 

grund 

Raster- 

Unter¬ 

brechung 

Bild  3.  Das  Interrupt-Enable-Register  (53274  =  $d01a)  des  VIC-II-Chip 

7  6  5  4  3  2  1  0 

Markierung, 
ob  zugelas¬ 
sene  Unter¬ 
brechung 
aufgetreten 
ist 

unbenutzt 

Lichtgriffel- 

Unter¬ 

brechung 

Kollision 

Sprite/ 

Sprite 

Kollision 

Sprite/ 

Hinter¬ 

grund 

Raster- 

Unter¬ 

brechung 

Bild  4.  Das  Interrupt-Latch-Register  (53273  =  $d019)  des  VIC-II-Chip 


dieser  zweiten  Möglichkeit  wird 
im  SMON  Gebrauch  gemacht 
und  wir  werden  sie  nachher 
$  auch  kennenlernen. 

Natürlich  kann  der  BRK-Befehl 
auch  zu  anderen  Zwecken  als 
zur  Registeranzeige  durch  einen 
Monitor  verwendet  werden.  Es 
kommt  immer  darauf  an,  wel¬ 
ches  Service-Programm  wir 
dem  Computer  anbieten. 
Springt  man  aus  so  einem 
Service-Programm  mittels  RTI 
zurück  ins  Hauptprogramm, 
dann  muß  man  berücksichtigen, 
daß  der  Programmzähler  vor 
der  Sicherung  auf  dem  Stapel 


dorthin  gelangt.  Das  erfordert 
von  uns  die  Beschäftigung  mit 
anderen  Computerbausteinen 
als  der  CPU,  die  bisher  im  Mittel¬ 
punkt  unseres  Interesses  stand. 

Woher  kommen  die 
Unterbrechungs- 
Anforderungen? 

Quellen  für  Unterbrechungen 
können  viele  genannt  werden: 
Diskettenstation,  Datasette, 
Drucker,  Modem,  Schaltele¬ 
mente  und  so  weiter.  Um  aber  ei¬ 


übrig  und  deshalb  soll  auch  nur 
eine  Auswahl  dieser  Primär¬ 
quellen  detailliert  behandelt 
werden. 

Welches  sind  nun  die  primä¬ 
ren  Unterbrechungsquellen? 
Hier  sind  sie  aufgeführt: 

1)  Der  VIC-II-Chip  (MOS 
6566/6567  Video  Interface  Con¬ 
troller) 

2)  Die  beiden  CIAs  (MOS  6526 
Complex  Interface  Adapter) 

3)  Die  RESTORE-Taste 

4)  Der  Expansion-Port 

5)  RESET  (paßt  hier  nicht  ganz 
her,  woanders  aber  auch  nicht 
besser) 


ten  feststellen  Die  Option,  die 
der  Lichtgriffel  bietet,  wird  nicht 
behandelt  werden:  Meine 
Kenntnisse  auf  diesem  Sektor 
sind  nur  gering  (nobody  is  per¬ 
fect). 

Das  sogenannte  Interrupt  Ena- 
ble  Register  (Unter brechungs- 
Zulassungs-Register)  des  VIC-II- 
Chips  ist  Register  26.  Es  befindet 
sich  in  der  Speicherstelle  53274 
($D01A)  (siehe  Bild  3). 

In  diesem  Register  wird  fest¬ 
gelegt,  ob  eines  —  oder  mehre¬ 
re  —  der  4  möglichen  auslösen¬ 
den  Ereignisse  eine  Unterbre¬ 
chungsanforderung  an  den  Mi- 
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Bild  5.  Genereller  Aufbau  der  Unterbrechungs-Kontroll-Register  (13)  der  beiden  CIA-Bausteine 


kroprozessor  senden  soll.  Je¬ 
dem  Ereignis  ist  ein  Bit  zugeord¬ 
net.  Ist  dieses  Bit  gleich  1,  dann 
ist  die  Unterbrechung  freigege¬ 
ben,  ist  es  gleich  0,  dann  liegt  ei¬ 
ne  Sperrung  vor.  Die  Zuordnung 
der  Bits  ist  wie  folgt: 

Bit  0  Rasterzeilen-IRQ 
Bit  1  Sprite/Hintergrund- 
Kollision 

Bit  2  Sprite/Sprite-Kollision 
Bit  3  Lichtgriffel-IRQ 
Bits  4  bis  7  sind  ungenutzt  und  ha¬ 
ben  immer  den  Wert  1. 

Das  Register  25  wird  Interrupt 
Latch  Register  genannt,  was  et¬ 
wa  zu  übersetzen  wäre  mit  »Un- 
terbrechungs-Einrast-Register« 
(siehe  Bild  4).  Der  englische  Aus¬ 
druck  »latch«,  der  nur  umschrei¬ 
bend  oder  sehr  technisch  über¬ 
setzt  werden  kann,  beschreibt 
eigentlich  recht  genau,  was  in 
diesem  Register  geschieht.  Ein 
»latch«  ist  nämlich  so  etwas  wie 
ein  Schnappriegel,  also  ein  Rie¬ 
gel,  der  bei  der  Betätigung  ein¬ 
rastet.  Wenn  eines  der  4  mögli¬ 
chen  Ereignisse  eintritt, 
schnappt  im  dazugehörigen  Bit 
dieses  Registers  der  Inhalt  auf  1. 
Die  Bit-Zuordnung  ist  die  glei¬ 
che  wie  in  Register  26.  Aber  das 
Bit  7  hat  hier  noch  eine  Bedeu¬ 
tung:  Ist  eines  der  Bits  0  bis  3  auf 
1  gesetzt  und  das  dazugehörige 
Ereignis  in  Register  26  auch  zur 
U  nterbrechung  zugelassen  (also 
auch  dort  gleich  1),  dann  taucht 
in  Register  25,  Bit  7  eine  1  auf.  So 
kann  durch  einfaches  Lesen  die¬ 
ses  Bits  festgestellt  werden,  ob 
ein  IRQ  durch  den  VIC-II-Chip 
ausgelöst  wurde. 

Will  man  in  diesem  Register 
ein  gesetztes  Bit  löschen,  muß 
man  —  außergewöhnlich!  —  eine 
1  in  die  Bitposition  schreiben. 

Mit  Recht  erwarten  Sie  nun  ei¬ 
gentlich  eine  Anwendung  des 
bisher  gelernten.  Bei  Unterbre¬ 
chungsprogrammen  ist  es  aber 
dringend  nötig,  immer  den  ge¬ 
samten  Komplex  im  Auge  zu  ha¬ 
ben.  Ich  habe  mich  daher  ent¬ 
schlossen,  zuerst  alles  zu  erklä¬ 
ren  und  dann  Anwendungsmög¬ 
lichkeiten  vorzustellen.  Ihre  Ge¬ 
duld  wird  auf  eine  harte  Probe 
gestellt,  aber  ich  hoffe,  daß  Sie 
ab  der  nächsten  Folge  feststel¬ 
len,  daß  es  sich  gelohnt  hat,  et¬ 
was  zu  warten. 

An  sich  sind  die  beiden  CIAs 
in  unserem  Computer  völlig 
identisch.  Sie  werden  aber  un¬ 


terschiedlich  eingesetzt.  Sehen 
wir  uns  zunächst  einmal  an,  was 
beiden  in  Bezug  auf  Unterbre¬ 
chungen  gemeinsam  ist,  um  da¬ 
nach  die  Unterschiede  festzu¬ 
halten.  Die  Unterbrechungs- 
Steuerung  geschieht  in  Register 
13  dieser  Bausteine.  Dieses  Re¬ 
gister  hat  2  Funktionen:  Es  be¬ 
stimmt,  ob  eine  Unterbrechungs¬ 
anforderung  an  die  CPU  ge¬ 
sandt  werden  soll,  und  es  stellt 
fest,  ob  ein  Ereignis  stattgefun¬ 
den  hat,  das  zur  Unterbrechung 
führen  kann.  Die  Bedienung  die¬ 
ses  Registers  ist  demzufolge 
auch  etwas  unübersichtlich, 
aber  wir  haben  schon  ganz  an¬ 
dere  Probleme  gemeistert. 


Sehen  wir  uns  aber  zuerst  ein¬ 
mal  an,  welche  Ereignisse  vom 
Standpunkt  eines  CIA-Baustei- 
nes  als  Unterbrechungskriteri¬ 
um  dienen  können: 

1)  Unterlauf  der  Uhr  A 

2)  Unterlauf  der  Uhr  B 

3)  Die  interne  Uhr  hat  eine 
Alarmzeit  erreicht 

4)  Am  SP-Eingang  (hängt  mit 
dem  seriellen  Port  zusammen) 
ist  ein  bestimmter  Zustand  er¬ 
reicht 

5)  An  einem  Eingang  namens 
FLAG  ist  ein  bestimmter  Zustand 
erreicht. 

Die  Ereignisse  4  und  5  werden 
wir  ebenfalls  im  weiteren  weit¬ 
gehend  ausklammern. 

Nun  zum  Register  13,  dem 
Unterbrechungs-Kontroll-Regi- 
ster  (siehe  Büd  5). 

Auch  hier  gehört  zu  jedem  Er¬ 
eignis  ein  Bit.  Dabei  —  um  Wie¬ 
derholungen  zu  vermeiden  —  ist 
die  Zuordnung  schon  durch  die 
eben  angegebene  Ereignisauf¬ 
zählung  gegeben.  Ziehen  Sie 
von  der  vorangestellten  Num¬ 
mer  immer  eine  1  ab  und  Sie  ha¬ 
ben  die  Bitnummer.  Die  Bits  5 
und  6  sind  unbenutzt.  Bit  7  hat  ei¬ 
ne  dreifache  Funktion,  die  eng 
mit  den  anderen  Bitinhalten  ver¬ 
knüpft  ist.  Sehen  wir  uns  das  mal 
der  Reihe  nach  an: 

Lesen  des  Registers 
Sind  Unterbrechungsereig¬ 
nisse  aufgetreten,  dann  sind  die 


dazugehörigen  Bits  auf  1  gesetzt. 
Bit  7  ist  gleich  1,  wenn  minde¬ 
stens  ein  solches  Ereignis  statt¬ 
gefunden  hat  und  außerdem 
dieses  Ereignis  als  Unterbre¬ 
chungsauslöser  freigegeben  ist. 
Auf  diese  Weise  kann  —  ähnlich 
wie  beim  VIC-II-Chip-Register 
25  —  festgestellt  werden,  ob  die 
Unterbrechung  durch  einen  der 
beiden  CIAs  angefordert  wur¬ 
de.  Im  Unterschied  aber  zum 
VIC-II-Register  wird  Register  13 
durch  das  Lesen  gelöscht.  Braucht 
man  den  Inhalt  also  noch,  sollte 
man  ihn  irgendwo  Zwischenspei¬ 
chern. 

Schreiben  in  das  Register 

Bit  7  =  0  erzeugt  Sperren. 

Das  erkennt  man  am  besten  an 
einem  Beispiel.  Nehmen  wir  an, 
wir  möchten  die  Unterbrechung 
sperren,  die  durch  einen  Unter¬ 
lag  i  von  Uhr  A  erzeugt  werden 
kann.  Das  betrifft  das  Bit  0.  Wir 
schreiben  in  das  Register  13  fol¬ 
gende  Zahl:  0000  0001 

Wie  Sie  sehen,  ist  das  Bit  7 
gleich  0.  Die  1  in  Bit  1  bewirkt  die 
Sperrung.  Durch  die  Nullen  in 
den  anderen  Bits  wird  bewirkt, 
daß  die  anderen  Unterbre¬ 
chungs-Ereignisse  nicht  beein¬ 
flußt  werden.  Wollten  wir  alle 
sperren,  dann  müßten  wir  ein- 
schreiben:  0001  1111 

Auf  diese  Weise  können  selek¬ 
tiv  einzelne  Unterbrechungen 
durch  Einschreiben  der  1  bei 
gelöschtem  Bit  7  gesperrt  wer¬ 
den. 

Bit  7  =  I  erzeugt  Freigabe. 

Auch  hier  wieder  ein  Beispiel. 
Wenn  wir  ganz  gezielt  Unterbre¬ 
chungen  durch  Unterlauf  der 
Uhr  A  freigeben  wollen,  müssen 
wir  die  folgende  Zahl  in  Register 
13  schreiben:  1000  0001 
Bit  7  (gleich  1)  zeigt  an,  daß  dieje¬ 
nigen  Unterbrechungen  freizu¬ 
geben  sind,  deren  Bits  auf  1  ge¬ 
setzt  sind.  Alle  anderen  Unter¬ 
brechungen,  wo  also  in  der  da¬ 
zugehörigen  Bitposition  der  ein¬ 
zuschreibenden  Zahl  eine  0 
steht,  bleiben  unverändert. 

Ein  wichtiger  U nterschied  zwi¬ 
schen  den  beiden  CIAs  ist  der, 
daß  der  Unterbrechungsaus¬ 
gang  von  CIA  1  mit  dem  IRQ- 
Eingang  der  CPU  verbunden  ist, 
wohingegen  der  entsprechende 
Ausgang  von  CIA2  an  den  NMI- 
Eingang  unseres  Mikroprozes¬ 
sors  führt.  Daher  löst  der  CIA  1 
nur  IRQs  aus,  er  wird  manchmal 


deshalb  auch  IRQ-CIA  genannt. 
Der  andere  ist  dann  der  NMI- 
CIA,  weil  er  nur  NMIs  anfordern 
kann. 

Der  IRQ-CIA 

Das  Register  13  des  IRQ-CIA 
(der  die  Speicherstellen  56320 
bis  56335  belegt),  liegt  in  Zelle 
56333  ($DC0D).  Die  einzelnen 
Bits  sind  wie  folgt  zugeordnet: 
Bit  0  Unterlauf  Uhr  A 
Von  hier  kommt  der  IRQ,  der 
60mal  pro  Sekunde  stattfindet 
zur  Tastaturabfrage,  zum  Weiter¬ 
stellen  der  TI$-Uhr  etc. 

Bit  1  Unterlauf  Uhr  B 
Spielt  bei  Kassettenoperationen 
und  dem  seriellen  Port  eine 
Rolle. 

Bit  2  ALARM  bei  interner  Uhr. 
Spielt  beim  Zufallszahlengene¬ 
rator  (RND(0))  eine  Rolle. 

Bit  3  Hier  kommen  durch  den 
User-Port  Unterbrechungs-An¬ 
forderungen. 

Bit  4  ist  verbunden  mit  dem  se¬ 
riellen  Port  und  der  Kassetten- 
Lese-Leiiung. 

Der  NMI-CIA 

Ebenso  kurz  und  schmerzlos 
wie  beim  CIA  1  soll  auch  das  be¬ 
sondere  am  CIA  2,  dem  NMI- 
CIA  (er  belegt  den  Speicher  von 
56576  bis  56831)  vorgestellt  wer¬ 
den.  Sein  Register  13  findet  sich 
in  Speicherstelle  56589  ($DD0D). 
Die  Bits  0  und  1  (Unterläufe  der 
beiden  Uhren)  spielen  beim 
Senden  beziehungsweise  Emp¬ 
fangen  von  Daten  über  die 
RS232C-Schnittstelle  eine  Rolle, 
Bit  2  (ALARM)  wird  nicht  ver¬ 
wendet,  Bit  3  ist  direkt  mit  dem 
User-Port  verbunden  ebenso 
wie  Bit  4.  Der  NMI-CIA  wird  uns 
in  seiner  normalen  Funktion 
nicht  mehr  beschäftigen. 

Die  RESTORE-Taste  und  ein  kleines  Test- 
programm 

Die  RESTORE-Taste  ist  direkt 
mit  dem  NMI-Eingang  unseres 
Mikroprozessors  verbunden. 
Das  ermöglicht  es  uns,  durch 
einfaches  Drücken  dieser  Taste 
jederzeit  ins  Geschehen  einzu¬ 
greifen,  ohne  uns  um  Details 
kümmern  zu  müssen,  ob  sich  der 
Computer  gerade  im  Direkt¬ 
oder  im  Programm-Modus  be¬ 
findet  und  so  weiter.  Denn  NMI 
hat  die  höchste  Priorität  der  Un¬ 
terbrechungen. 

Ein  kleines  Testprogramm  soll 
Ihnen  hier  noch  vorgestellt  wer- 


Die  beiden  CIA- 
Bausteine  als  Unter¬ 
brechungsquellen 
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den,  das  Sie  vielleicht  aber  noch 
nicht  ganz  verstehen  werden, 
weil  wir  erst  in  der  nächsten  Fol¬ 
ge  die  eingebauten  Servicepro- 
gramme  kennenlernen  werden. 
Schalten  Sie  also  den  SMON  ein 
und  geben  Sie  das  Programm  1 
ein  (ab  $6000): 


Am  besten  speichern  Sie  nun 
das  Programm  ab  und  schalten 
dann  mittels  dem  SMON-Kom- 
mando  M  0318  die  Anzeige  der 
Bytes  ab  $0318  ein.  Dort  steht  in 
den  beiden  ersten  Speicherzel¬ 
len  47  und  FE.  Mit  dem  Cursor 
fahren  Sie  in  diese  Zeile  und  än- 


U  nterbrechungsart 

Vektor 

Zieladresse 

Maskierbare  Unterbrechung  (IRQ, 
BRK) 

$FFFE/FFFF 

65352  $FF48 

Reset 

$FFFC/FFFD 

64738  $FCE2 

Nichtmaskierbare  Unterbrechung 
(NMI) 

$FFFA/FFFB 

65091  SFE43 

Tabelle  1 .  Unterbrechungsvektoren  und  ihre  Inhalte 

6000 

6001 

6002 

6003 

6004 

PHA 

TXA 

PHA 

TYA 

PHA 

mit  diesen  Befehlen  retten  wir  Akku  und  Register 
auf  den  Stapel. 

6005 

LDA  #$7F 

0111  1111  ist  das  in  binär. 

6007 

STA  $DD0D 

Dadurch  werden  alle  NMIs,  die  vom  CIA  2  kom¬ 
men  könnten,  gesperrt.  Erinnern  Sie  sich:  Bit  7  ist 
Null  beim  Schreiben,  also  Sperrfunktion. 

600Ä 

LDY $DD0D 

Lesen  des  Registers  13  löscht  dieses  und  zeigt 
uns,  ob  die  NMI-Anforderung  von  dort  kam. 

600D 

BMI  $60 1A 

falls  JMMl-Anforderung  vom  CIA  2  kam,  wird  ver¬ 
zweigt 

600F 

LDA  $D020 

ansonsten  kommt  der  NMI  von  der  RESTORE- 
Taste,  und  in  den  Akku  wird  die  Rahmenfarbe 
cingcladon 

6012 

EOR  #$0E 

Ausgehend  davon,  daß  als  Rahmenfarbe  14  vor¬ 
liegt,  wird  diese  exklusiv  oder  verknüpft  zu  Null. 

Ist  die  Rahmenfarbe  0,  dann  wird  sie  wieder  14. 

6014 

STA  $D020 

Einschreiben  des  neuen  Farbwertes 

6017 

JMP  $FEBC 

Spmng  in  den  Rest  der  normalen  NMI-Routine 

601A 

JMP  $FE72 

Sprung  in  die  normale  NMI-Routine  im  Fall,  daß 
die  Anforderung  durch  den  NMI-CIA  kam. 

Programm  1 .  Ein  kleines  Testprogramm  demonstriert  die 

Wirkung  einer  Unterbrechung:  Durch  Drücken  der  REST0RE- 

Taste  wird  die  Rahmenfarbe  geändert. 

Befehls-  Ädressie- 
wort  rung 

Byte- 

zahl 

Code 

Hex  Dez 

Takt- 

cyclen 

Beeinflussung 
von  Flaggen 

CLI 

implizit 

1 

58 

88 

2 

I-Flagge 

SEI 

implizit 

1 

73 

120 

2 

I-Flagge 

RTI 

implizit 

1 

40 

64 

6 

alle  Flaggen 

BRK 

implizit 

1 

00 

0 

7 

B-Flagge  vor  dem 
Schieben  auf  den 
Stapel,  I-Flagge 
danach 

Tabelle  2.  Die  Daten  zu  den  letzten  Assembler-Befehlen 


_ 


dern  den  Inhalt  in  00  und  60,  also 
unsere  Programmstartadresse 
in  der  LSB/MSB-Form.  Nach  ei¬ 
nem  RETURN  läuft  nun  jede 
NMI-Anforderung  über  unser 
Programm.  Nun  können  Sie  es 
ausprobieren,  indem  Sie  mal  die 
RESTORE-Taste  drücken.  Es  ge¬ 
nügt  völlig,  alleine  diese  Taste  zu 
betätigen.  Das  wirkt  —  sichtbar 
durch  die  Änderung  der  Rah¬ 
menfarbe  —  in  jedem  Modus 
und  jederzeit.  Eine  kleine  Merk¬ 
würdigkeit  ist,  daß  man  manch¬ 
mal  etwas  Geduld  aufbringen 
muß,  bis  man  die  Wirkung  sieht. 
Ich  vermute,  daß  der  NMI  so 
_ 


schnell  erledigt  wird,  daß  sich 
mehrer  NMIs  pro  Tastendruck 
ereignen.  Man  müßte  sich  noch 
eine  kleine  Routine  überlegen, 
die  die  Wirkung  etwas  verzö¬ 
gert,  denn  2  solche  EOR-Kom- 
mandos  nacheinander  heben 
sich  gegenseitig  auf. 

Damit  sei's  für  diesmal  genug. 
In  der  nächsten  Ausgabe  wer¬ 
den  wir  uns  die  Unterbre¬ 
chungs-Firmware  ansehen  und 
einige  Programmbeispiele  vor¬ 
stellen.  Zum  Schluß  noch  wie  üb¬ 
lich  eine  Aufstellung  (Tabelle  2) 
mit  den  besprochenen  Befeh¬ 
len.  (Heimo  Ponnath/gk) 
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Dem  Klang  auf  der  Spur  (Teil  7) 


Die  meisten  modernen  digita¬ 
len  Synthesizer  haben  eine 
Gemeinsamkeit:  eine  fast  un¬ 
überschaubare  Vielzahl  von 
Einstellmöglichkeiten.  Das  in 
den  letzten  Folgen  beschriebe¬ 
ne  Programm  Modulator  ist  da 
keine  Ausnahme.  Um  die  reich¬ 
haltigen  Möglichkeiten  auszulo¬ 
ten,  die  dieses  Programm  bietet, 
benötigt  man  ein  komfortables 
Editorprogramm,  sonst  läßt  die 
Motivation  beim  Jonglieren  mit 
Bits,  Bytes,  PEEK  und  POKE  bald 
nach.  Ein  solches  Programm 
wird  hier  vorgestellt.  Es  zeigt  die 
über  70  Parameter  des  SID  und 
von  Modulator,  übersichtlich 
nach  Funktionsgruppen  geord¬ 
net,  auf  dem  Bildschirm  an  und 
erlaubt  einen  schnellen  Zugriff 
auf  alle  Einstellwerte.  Diese  Ein¬ 
stellwerte  können  geändert  wer¬ 
den,  während  ein  Ton  klingt,  so 
daß  die  Wirkung  der  Einstel¬ 
lung  unmittelbar  überprüft  wer¬ 
den  kann.  Zudem  kann  man  Tö¬ 
ne  im  Bereich  von  zwei  Oktaven 
direkt  über  die  Tastatur  anspie- 
len.  Dabei  können  zwar  nicht 
mehrere  Tasten  gleichzeitig  ge¬ 
spielt  werden,  man  kann  aber 
zwei  oder  drei  SID-Stimmen  mit 
einem  Tastendruck  gleichzeitig 
erklingen  lassen.  Darüber  hin¬ 
aus  verwaltet  das  Programm  24 
Parametersätze,  im  folgenden 
Sounds  genannt,  im  Arbeitsspei¬ 
cher.  Diese  24  Sounds  können 
als  eine  Datei  von  Diskette  gela¬ 
den,  bearbeitet  und  wieder  ab¬ 
gespeichert  werden. 

Wie  man  den 
Sound-Editor  zum 
Laufen  bringt 

Das  abgedruckte  Programm 
kann  man  beim  Listing-Service 
bestellen  oder  auch  selbst  ab¬ 
tippen,  was  bei  107  Blöcken  lei¬ 
der  etwas  mühsam  ist.  Dabei 
kann  man  die  Kommentare  na¬ 
türlich  weglassen,  denn  man  hat 
sie  im  Heft  ja  bereits  vor  sich. 
Man  sollte  dann  aber  trotzdem 
alle  Zeilennummern  eintippen, 
da  viele  Zeilen  angesprungen 
werden,  auch  wenn  sie  nur  Kom¬ 
mentare  enthalten.  Reine  Kom¬ 
mentarzeilen  kann  man  mit: 
»(Zeilennummer)  REM«  oder 
»(Zeilennummer) : « 
abkürzen.  Man  hüte  sich  aber 
davor,  eine  RENUMBER-Utility 
auf  das  Programm  anzuwenden. 
Die  meisten  Sprünge  werden 
nämlich  nicht  über  die  Basic-Be- 
fehle  GOTO  und  GOSUB  abge¬ 
wickelt,  sondern  über  zwei  Ma¬ 
schinenprogramme  GT  und  GS 
(darüber  später  mehr).  Diesen 
Umstand  kann  eine  RENUM¬ 
BER-Utility  natürlich  nicht  be¬ 
rücksichtigen. 


Die  praktische  Anwendung  der 
bisher  erarbeiteten  Kenntnisse  steht 
im  Mittelpunkt  dieser  Folge: 

Ein  universelles  Synthesizer-Programm 
bringt  den  SID  auf  Trab. 


Der  Sound-Editor  ist  nur  zu¬ 
sammen  mit  dem  in  Ausgabe 
4/85  (MSE-Listing)  und  in  Ausga¬ 
be  5/84  (Assembler-Listing)  ver¬ 
öffentlichten  Programm  Modu¬ 
lator  lauffähig.  Dieses  Pro¬ 
gramm  muß  auf  Diskette  als  ab¬ 
solut  zu  ladende  Datei  (Bereich 
$C075  bis  $0422)  unter  dem  Na¬ 
men  »MODULATOR«  vorliegen. 

Im  Programm  Modulator 
steckt  leider  noch  ein  kleiner 
Bug :  Es  wird  der  Zeropage-Spei¬ 
cherplatz  $FF  verwendet,  was 
hin  und  wieder  den  Basic-Inter- 
preter  stören  kann.  Wenn  man 
statt  $FF  den  vom  Betriebssy¬ 
stem  nicht  verwendeten  Spei¬ 
cherplatz  $02  verwendet,  treten 
keine  Probleme  mehr  auf.  Im 
Modulator-Code  sind  zehn  Zero¬ 
page-Adressen  von  dieser  Än¬ 
derung  betroffen.  Die  folgen¬ 
den  vier  Basic-Zeilen  enthalten 
die  zehn  Adressen  und  nehmen 
auch  gleich  die  Änderung  vor: 
10  FOR  I  =  1  TO  10 
20  READ  AD:POKE  AD,  2:NEXT  I 
30  DATA  49339,49344,49734, 
49744,50115 

40  DATA  50129,50162,50168, 
50173,50178 

Der  geänderte  Modulator- 
Code  sollte  dann  unter  dem  Na¬ 
men  »MODULATOR«  auf  Disket¬ 
te  zurückgespeichert  werden. 
Jetzt  müßte  der  Sound-Editor,  so¬ 
fern  er  fehlerfrei  eingetippt  wur¬ 
de,  laufen.  Da  es  sich  hier  um  ein 
Programm  handelt,  das  über¬ 
wiegend  in  Basic  geschrieben 
ist,  ist  ein  umfangreicher  Setup- 
Teil,  der  etwa  30  Sekunden  be¬ 
ansprucht,  leider  unvermeid¬ 
bar.  Das  Warten  wird  dann  aller¬ 
dings  durch  Komfort  und  durch¬ 
aus  akzeptable  Geschwindig¬ 
keit  belohnt. 

Mit  8  Menüs  über 
70  Parameter  im 
Griff 

Zum  Verständnis  der  Parame¬ 
ter  sei  auf  Ausgabe  4/85  verwie¬ 
sen.  wo  die  Funktionen  der  Mo¬ 
dulatorkomponenten  beschrie¬ 
ben  sind.  Der  Sound-Editor  mel¬ 
det  sich  mit  dem  Hauptmenü 
(Bild  1)  mit  dem  Namen  MODU¬ 
LATOR.  Damit  soll  betont  wer¬ 
den,  daß  Modulator  der  eigentli¬ 


che  Kern  des  Programms  ist. 
Der  Sound-Editor  wird  aus¬ 
schließlich  über  die  Tastatur  be¬ 
dient,  wobei  sich  die  meisten 
Funktionen  mit  einem  einzigen 
Tastendruck  auslösen  lassen.  Es 
ist  durchgehend  '  das  WYSI- 
WYG-Konzept  (What  You  See  Is 
What  You  Get)  verwirklicht,  das 
heißt,  alle  in  einer  Situation  ver¬ 
fügbaren  Kommandos  werden 
am  Bildschirm  angezeigt.  Eine 
Ausnahme  bilden  die  sieben 
Kommandos  zur  Auswahl  der 
Untermenüs,  die  zwar  nur  im 
Hauptmenü  angezeigt  werden, 
aber  auch  in  jedem  Untermenü 
funktionieren.  Man  kann  also  di¬ 
rekt  von  einem  Untermenü  ins 
andere  springen.  Den  Umweg 
über  das  Hauptmenü  benötigt 
man  eigentlich  nur,  wenn  man 
d’^  :  Kommandos  nicht  mehr 
weiß. 

Das  untere  Drittel  des  Bild¬ 
schirms  ist  in  allen  Menüs  iden¬ 
tisch.  Es  zeigt  eine  stilisierte  Kla¬ 
viatur  über  zwei  Oktaven,  der 
auf  dem  Computer  die  oberen 
beiden  Tastenreihen  entspre¬ 
chen.  Mit  diesen  Tasten  kann 
man  bis  zu  drei  SID-Stimmen  mit 
einem  Tastendruck  anspielen. 
Mit  dem  Kommando  V  und  einer 
Ziffer  1,  2  oder  3  können  die  zu 
spielenden  Stimmen  aktiviert 
oder  desaktiviert  werden.  An¬ 
gezeigt  ward  das  rechts  neben 
der  Klaviatur.  Die  Funktion  SU- 
STAIN  bewirkt,  daß  der  Ton 
nach  dem  Loslassen  einer  Ton- 
Taste  weiterklingt,  sofern  ein 
SUSTAIN-Pegel  größer  als  Null 
eingestellt  ist.  Die  GATE-Bits  des 
SID  werden  bei  aktivierter 
SUSTAIN-Funktion  nicht  zurück¬ 
gesetzt.  Mit  dem  Drücken  der 
Space-Taste  wird  das  GATE-Bit 
des  Software-Hüllkurvengene¬ 
rators  (Soft-EG)  gesetzt,  durch 
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Bild  1.  Hauptmenü 


Loslassen  zurückgesetzt.  Der 
Soft-EG  wird  also  durch  SPACE 
ausgelöst,  vorausgesetzt,  seine 
Parameter  haben  sinnvolle  Wer¬ 
te.  Das  Auslösen  des  Soft-EG 
kann  man  mit  Shift  Space  an  die 
Tontasten  koppeln,  was  bei  den 
meisten  Soft-EG-Anwendungen 
sinnvoll  sein  dürfte.  Auch  die 
SUSTAIN-Funktion  und  die  Kop¬ 
pelung  des  Soft-EG  werden 
rechts  neben  der  Klaviatur  an¬ 
gezeigt. 

Die  Beeinflussung  der  Para¬ 
meter  in  den  Untermenüs  erfolgt 
nach  einheitlichem  Schema:  Der 
zu  ändernde  Parameter  wird  mit 
den  Cursor-Tasten  angewählt 
und  mit  den  f-Tasten  verstellt.  Je 
nach  Anzahl  der  Parameter  sind 
dabei  alle  vier  Cursortasten 
oder  nur  die  Tasten  Cursor- 
Links  und  Cursor-Rechts  wirk¬ 
sam.  Auch  die  Funktionsweise 
der  f-Tasten  ist  einheitlich:  Nu¬ 
merische  Parameter  werden 
durch  fl  und  f7  in  großer  und 
durch  f3  und  f5  in  kleiner  Schritt¬ 
weite  verstellt.  Bei  nichtnumeri¬ 
schen  Parametern  wird  die 
Funktion  der  f-Tasten  am  Bild¬ 
schirm  angezeigt. 

Bei  numerischen  Parametern 
werden  bis  auf  eine  Ausnahme 
direkt  die  Werte  der  SID-  oder 
Modulator-Register  angezeigt. 
Bei  der  Ausnahme  handelt  es 
sich  um  die  Basisfrequenzen 
der  drei  Stimmen  (Bild  2,  Para¬ 
meter  F).  Bei  dieser  Basisfre¬ 
quenz  handelt  es  sich  um  die 
Frequenz  des  tiefsten  spielbaren 
Tones  (Taste  Q).  Sie  wird  nicht  in 
Hertz,  sondern  in  einer  musika¬ 
lisch  sinnvollen  Notation  ange¬ 
geben.  Sie  besteht  aus  Notenna¬ 
men,  einer  Oktavnummer  und 
einer  Verstimmung  in  Cent.  Die 
Oktavnummern  bewegen  sich 
im  Bereich  0  bis  5.  Dabei  ent¬ 
spricht  A  4  dem  440-Hz-Ton,  der 
in  der  Musik  korrekt  »eingestri¬ 
chenes  a«  heißt.  Ein  Cent  ist  ein 
hundertstel  Halbton.  Der  Para¬ 
meter  bewegt  sich  von  —49  bis 
+  50.  Die  etwas  komplizierte  Be¬ 
rechnung  der  Basisfrequenz  in 
Hz  und  in  SID-Registerwerten 
findet  man  in  den  Programmzei¬ 
len  ab  3110. 

Alle  anderen  Sound-Parame- 
____  ter  sind  anhand  der 
Menübilder,  in  denen 
sie  auftreten  (Bild  2  bis 
6),  leicht  identifizier¬ 
bar  und  bedürfen  kei¬ 
ner  weiteren  Erläute¬ 
rung. 

Im  Menü  SOUNDS 
(Bild  7)  können  ganze 
Parametersätze  (je¬ 
weils  107  Byte,  siehe 
auch  Tabelle  4)  mit 
Namen  versehen  und 
im  Speicher  abgelegt 
werden.  Angewählt 
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Bild  2.  Untermenü  Stimmen-Parameter 


Bild  3.  Untermenü  Filter/Lautstärke 
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Bild  4.  Untermenü  LFO 
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Bild  5.  Untermenü  Software-EG 


Bild  6.  Untermenü  KSV 


Bild  7.  Untermenü  Sounds 
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Bild  8.  Untermenü  Disk 


werden  die  Sounds  hier  nicht 
über  die  Cursor-Tasten,  sondern 
über  die  Tastenkombinationen 
Al  bis  C8.  Die  24  Sounds  sind  al¬ 
le  mit  der  Parametereinstellung, 
die  beim  Programmstart  vorliegt, 
vorbesetzt.  Eine  Gruppe  von  24 
Sounds  kann  im  Menü  DISK  (Bild 
8)  auf  Diskette  abgespeichert 
und  wieder  geladen  werden. 

Bemerkungen  zum 
Programm 

Es  soll  hier  nicht  die  Arbeits¬ 
weise  des  Sound-Editors  im  De¬ 
tail  beschrieben,  sondern  nur  ei¬ 
nige  Bemerkungen  zum  Stil  des 
Programms  gemacht  werden.  In 
dem  Programm  werden  sehr 
viele  Tastenkommandos  akzep¬ 
tiert,  die  in  verschiedenen  Me¬ 
nüs  und  bei  den  verschiedenen 
Parametern  auch  noch  unter¬ 
schiedliche  Bedeutung  haben. 
Um  in  dieser  Situation  die  Über¬ 
sicht  zu  behalten  (Anliegen  des 
Programmierers)  und  um  das 
Programm  trotz  Realisierung  in 
Basic  akzeptabel  schnell  zu  hal¬ 
ten  (Anliegen  des  Anwenders), 
werden  die  vielen  Einzelrouti¬ 
nen  von  zentraler  Stelle  aus  über 
variable  Vektoren  angesprun¬ 
gen.  Zwar  unterstützt  Basic  mit 
den  Befehlen  ON  GOTO  und  ON 
GOSUB  Mehrfachverzweigun¬ 
gen,  diese  sind  aber  bei  der  hier 
in  Frage  kommenden  sehr  gro¬ 
ßen  Zahl  von  Sprungzielen 
schlecht  einzusetzen.  Die  bei¬ 
den  Maschinenprogramme  GS 
und  GT  (siehe  auch  Tabelle  2) 
erlauben  dagegen  (Unterpro¬ 
gramm-)  Sprünge  zu  Zeilen,  de¬ 
ren  Nummer  ein  beliebiger 
arithmetischer  Ausdruck  oder 
eine  Variable,  der  Sprungvek¬ 
tor,  sein  kann. 


Die  Tastenkommandos  wer¬ 
den  nun  sehr  schnell  und  auf  ein¬ 
fache  Weise  interpretiert.  Der 
ASCII-Code  A  der  zuletzt  ge¬ 
drückten  Taste  und  die  Nummer 
M  des  gerade  aktiven  Menüs  (0 
bis  7)  werden  als  Indizes  in  eine 
Sprungvektor-Tabelle  V%  ver¬ 
wendet.  Der  gefundene  Eintrag 
ist  die  Zeilennummer  der  Routi¬ 
ne,  die  den  Tastendruck  bear¬ 
beitet.  Diese  Routine  wird  als 
Unterprogramm  aufgerufen. 
Für  diesen  Vorgang  benötigt 
man  nur  einen  einzigen  Befehl: 
SYSGS,V%(M,A)  (Zeile  1550). 

Allen  nicht  definierten  Tasten 
wird  über  die  Tabelle  der 
Sprungvektor  0  zugeordnet.  Er 
führt  in  das  leere  Unterpro¬ 
gramm  ganz  am  Anfang  des  Li- 
stings.  Die  Sprung-Tabelle  wird 
über  die  Inhalte  der  DATA-Zei- 
len  ab  9500  im  Programm-Setup 
besetzt.  Vierstellige  DATAs  ste¬ 
hen  für  Zeilennummern,  drei¬ 
stellige  für  ASCII-Codes,  zwei¬ 
stellige  wählen  ein  Menü  (dabei 
bedeutet  zum  Beispiel  Ml  »Me¬ 
nü  Nr.  1«  und  MA  »alle  Menüs«) 
und  einstellige  sind  ASCII- 
Zeichen.  »ENDE«  schließt  die 
Tabellen-DATAs  ab.  Der  Pro¬ 
grammteil  ab  Zeile  8110  interpre¬ 
tiert  diese  DATAs  und  besetzt 
die  Tabelle. 


Eine  Ergänzung  des  Pro¬ 
gramms  um  weitere  Funktionen 
gestattet  sich  mit  diesem  Kon¬ 
zept  sehr  einfach.  Man  schreibt 
ein  Unterprogramm  und  trägt 
die  Zeilennummer  des  Unter¬ 
programm-Starts  zusammen  mit 
der  Taste,  durch  die  das  Unter¬ 
programm  aufgerufen  werden 
soll,  in  die  Tabelle  ein.  Die  Hard¬ 
copys  entstanden  auf  diese  Wei¬ 
se:  Ab  Zeile  7900  stand  eine 
Hardcopy-Routine  (im  Listing 
hier  nicht  enthalten).  Durch: 
9760  DATA  MA,7900,Z 
wurde  bewirkt,  daß  in  allen  Me¬ 
nüs  durch  den  Tastendruck  Z  ein 
Hardcopy-Ausdruck  ausgelöst 
werden  konnte. 

Im  Sound-Editor  werden  noch 
weitere  Sprungvektoren  ange¬ 
wendet:  Eine  f-Taste  führt  grund¬ 
sätzlich  in  die  Dummy-Routine 
Geeres  Unterprogramm)  oder  in 
eine  der  vier  Zeilen  2550,  2560, 
2570,  2580.  Dort  wird  ein  aktuel¬ 
ler  numerischer  Parameterwert 
erhöht  oder  erniedrigt.  An¬ 
schließend  wird  in  eine  der  21 
Routinen  ab  Zeile  2600  weiter 
verzweigt.  Die  zugehörige  Vek- 
torvariable  ist  PV.  Die  21  Einzel¬ 
routinen  bringen  den  geänder¬ 
ten  Parameter  an  seinen  Platz  in 
ein  SID-  oder  ein  Modulator-Re¬ 
gister  und  geben  ihn  zudem  an 


der  richtigen  Stelle  am  Bild¬ 
schirm  aus. 

Der  Parameter-Vektor  PV  wird 
von  Parameter-Anwahl-Routinen 
gesetzt,  von  denen  es  in  jedem 
Menü  für  jede  Parameterart  ei¬ 
ne  gibt,  zum  Beispiel  »Filterfre¬ 
quenz«  wählen,  Zeile  5200.  Der 
Aufruf  einer  Parameter-Anwahl- 
Routine  wird  durch  die  Cursor- 
Tasten  ausgelöst  und  geschieht 
durch  einen  weiteren  Vektor  AV. 
Beispiel:  »Parameterwahl  durch 
Cursor«,  Zeile  5130.  Von  diesen 
Cursor-Routinen  gibt  es  fünf 
Ausführungen,  für  jedes  Menü, 
in  denen  die  Cursor-Tasten  wirk¬ 
sam  sind,  eine. 

Einige  Maschinenprogramme 
machen  den  Sound-Editor 
schneller  und  übersichtlicher. 
Erwähnt  seien  dabei  Unterpro¬ 
gramme  zum  Zugriff  auf  Doppel¬ 
bytes  von  Basic  aus  (»DEEK«  und 
»DOKE«).  Das  lästige  Berechnen 
von  Low-  und  High-Byte  entfällt 
so.  Der  »PRINT  AT«-Befehl  ge¬ 
stattet  es,  den  Cursor  an  jede 
Stelle  des  Bildschirms  zu  positio¬ 
nieren,  um  dort  etwas  auszuge¬ 
ben.  Die  Tabellen  1  bis  4  sollen 
eine  kleine  Dokumentation  des 
Sound-Editors  darstellen.  Der 
Leser,  der  das  Programm  selbst 
modifizieren  oder  erweitern  will 
(zum  Beispiel  andere  oder  mehr 
Farben),  findet  dort  die  gesuch¬ 
te  Information. 

Das  Tabellen-  und  Vektor- Kon¬ 
zept  wird  einen  weiteren  Aus¬ 
bau  des  Programms  sehr  er¬ 
leichtern.  Das  schon  einmal  an¬ 
gekündigte  Sequenzer-Pro¬ 
gramm  wird  bis  zum  Ende  die¬ 
ses  Kurses  den  Sound-Editor  zu 
einem  kompletten  Synthesizer- 
Programm  erweitern,  mit  dem 
man  dann  auch  virtuose  Melo¬ 
dien  mit  Modulator-Sounds  spie¬ 
len  lassen  kann. 

(Thomas  Krätzig/ev) 
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Real 

A  allgemeine  Verwendung,  ASCII-Codes 

AD  allgemeine  Adresse 

AN  Auswahl-Nummer  bei  EG 

(0 =R  1=D  2=S  3=R  4= EGA) 

ÄV  Auswahl-Vektor  bei  Parameterwahl  durch  Cursor 

B  allgemeine  Verwendung 

CL  Startadresse  CLEAR  (Zeile  0-14) 

DO  Startadresse  DOICE 

EG  Status  des  Soft-EG  (0  =  abgekoppelt,  —1  =  angekoppelt) 

F  allgemeiner  Farbcode 

Fl  Code  für  Normalfarbe 

F2  Code  für  Hervorhebungsfarbe 

FA  Basisadresse  Farb-RAM 

GS  Startadresse  berechnetes  GOSUB 

GT  Startadresse  berechnetes  GOTO 

I,J,K  allgemeine  laufvariablen 

L  Stringlänge 

LN  Nummer  des  aktuellen  LFO 

M  aktuelles  Untermenü  (0  bis  7) 

MO  Basisadresse  Modulator 

NS  Sound-Nummer  (0  bis  23) 

O  Oktave  (temporär)  0  bis  5 

OF  Tohhöhen-Offset  (temporär) -49  bis +50 

PA  Parameter-Zieladresse 

PB  Farb-RAM-Adresse  des  aktuellen  Parameterfeldes 

PM  Maximum  + 1  des  aktuellen  (numerischen)  Parameters 
PR  Startadresse  PRINT  AT 

FV  Sprungvektor  zur  Weiterverarbeitung  des  aktuellen  Parameters 

PW  Wert  des  aktuellen  Parameters 

PI  Schrittweite  langsam 

P2  Schrittweite  schnell 

RF  RES/FILT  Inhalt  von  SID  $17 

S  Spalte  allgemein 

SA  Sound-Adresse  (Anfang  eines  Parameterblocks) 


SI  Basisadresse  SID 

SN  Nummer  der  aktuellen  Stimme 

SO  Basisadresse  Sounds 

T  Tonnummer  (temporär)  0—11 

X,Y  allgemeine  Verwendung 

Z  Zeile  allgemein 

ZN  Zeilennummer  allgemein 

Strings 

A$  Eingabezeichen,  allgemeine  Verwendung 

Fl$  Steuerzeichen  Normalfarbe 

F2$  Steuerzeichen  Hervorhebungsfarbe 

DN$  Dateiname 

Zahlen-Ärrays 

AD(2)  Attack/Decay  für  3  Stimmen 

BF(2)  Basisfrequenz  für  3  Stimmen 

C(2)  Controlbyte  (GATE  aus)  für  3  Stimmen 

Cl(2)  Controlbyte  (GATE  an)  für  3  Stimmen 

0(2)  Oktaven  für  3  Stimmen  0  bis  3 

OF(2)  Tonhöhen-Offset  für  3  Stimmen  -49  bis  +50 

S(2)  Status  der  Stimmen  (0  =  inaktiv,  —1  =  aktiv) 

SR(2)  Sustain/Release  für  3  Stimmen 

T(2)  Tonhöhen-Nummer  für  3  Stimmen  0  bis  11 
TH(24)  relative  Tonhöhen 

TN%(256)  Tonnummem  (0  bis  24) 

TN%(Ä)  =  Nummer  des  Tones  bei  Tastendruck  CHR$(A) 
V°/o(7,25o)  Sprungvektoren 

String-Ärrays 

BL$(6)  0  bis  6  Blanks 


KF$(3)  LFO-Kurvenformen  grafisch 
KV$(3)  Namen  der  LFO-Kurvenformen 

MD$(3)  Namen  der  Modulationsquellen-Modi:  RESET,  HOLD,  RUN 
TN $(11)  Namen  der  Töne:  C,  C  #,  D,  D  #,  E,  F,  F  #,  G,  G  #,  Ä,  Ä  # ,  H 


Tabelle  1.  Variablen  des  Sound-Editors 


Name 

Start- 

Aufruf 

Funktion 

adrcssc 

GS 

828 

SYSGS,  Zeilennummer 

Berechnetes  GOSUB 

GT 

857 

SYSGT,  Zeilennummer 

Berechnetes  GOTO 

PR 

869 

SYSPR,  Zeile.  Spalte, 

PRINT  AT:  Positioniert  den 

Printliste 

Cursor  an  der  Position  Zeile 
(0-24),  Spalte  (0-39)  und  geht 
über  zum  Basic-PRINT 

DO 

897 

SYSDO,  Adresse,  Wert 

DOKE:  Doppelbyte-POKE 
Schreibt  einen  16-Bit-Wert 
(0-65536)  ab  Adresse  in  den 
Speicher,  niederwertiges 

Byte  zuerst 

USR 

937 

USR  (Adresse) 

DEEK:  Doppelbyte-PEEK 
Liefert  16-Bit-Wert  der 
Speichersteilen-Adresse 
und  Adresse  + 1 

CL 

959 

SYSCL 

CLEAR:  Löscht  Bildschirm 
Zeilen  0-14 

NA 

50229 

SYSNA,  Adresse 

NAME:  Ausgabe  von  10  Zei¬ 
chen,  deren  ASCII-Codes 
ab  Adresse  im  Speicher  ste¬ 
hen.  Dient  zur  Ausgabe  von 
Soundnamen 

GE 

50245 

SY5GE,  Adresse 

GET:  Belegt  SID  und  MO¬ 
DULATOR  mit  Parameter¬ 
satz,  der  ab  Adresse  im 
Speicher  steht  (siehe  Tabel¬ 
le  4) 

PU 

50276 

SYSPU,  Adresse 

PUT:  Kopiert  Parameter  von 
MODULATOR  (aber  keine 
SID-Parameter!)  in  Parame¬ 
terblock  ab  Adresse  (siehe 
Tabelle  4) 

Alle  hier  aufgeführten  Unterprogramme  ermitteln  ihre  Parameter  mit 

Hilfe  des  Basic-Interpreters.  Es  sind  daher  beliebige  arithmetische  Aus¬ 
drücke  (beziehungsweise  String-Ausdrücke  bei  PR)  möglich.  Es  wird 
ein  »Illegal  Quantity  Error«  ausgelöst,  wenn  die  Parameter  ihren  zuge¬ 
lassenen  Bereich  (0-255  beziehungsweise  0-65535)  überschreiten. 

Tabelle  2.  Unterprogramme  zum 

Sound-Editor  in  Maschinensprache 

Zero-Page 

$02 

$9B 

$FB-$FE 

$9E-$9F 

von  MODULATOR  benutzt 

von  NA,  GE  und  PU  benutzt 

USR-Vektor 

$311-$312 

belegt  mit  Startadresse  von  DEEK 
($03Ä9) 

Kassetten- 

Puffer 

$33C-$3D4 

Maschinenprogramme 

GS,  GT,  PR,  DO,  USR  (DEEK),  CL 

Basic 

$0800-$08FF 

(obere  Speichergrenze  herunterge¬ 
setzt) 

Sounds 

$9000-$9A07 

24  Parameter-Blöcke  ä  107  Byte 

Freier  RÄM- 
Bereich 

$0000-$C070 

$C071-$C074 

$C075-$C422 

$C423-$C473 

MODULÄTOR-Parameter 
MODULATOR-inteme  Variablen 
MODULATOR-Code 
Maschinenprogramme  NA,  GE,  PU 

Tabelle  3. 

Speicherbelegung  durch  den  Sound-Editor 

Es  werden  24  Parameter-Blöcke  der  Länge  107  Byte  im  Bereich 
$9000  bis  $9Ä08  verwaltet. 

Struktur  eines  Parameter-Blocks 

Relativadresse  Parameter  Variable  in 

Basic  (falls 

dezimal  hex  vorhanden) 

0-72 

$00  -  $48 

Modulator-Parameter 

keine 

73-  74 

$49  —  $4A 

Basisfrequenz  Stimme  1 

BF(2) 

75 

$4B 

Status  Stimme  1 

(0  =  inaktiv,  1  =  aktiv) 

S(2) 

76 

$4C 

unbenutzt 

77 

$4D 

Control  Register  Stimme  1 

C(2) 

78 

$4E 

Attach/Decay  Stimme  1 

AD(2) 

79 

$4F 

Sustain/Release  Stimme  1 

SR(2) 

80-  86 

$50  -  $56 

analog  Stimme  2  (7  Byte) 

87—  93 

$57  —  $5D 

analog  Stimme  3  (7  Byte) 

94 

$5E 

Resonanz/Filter 

RF 

95 

$5F 

Status  des  Soft-EG 
(0  =  abgekoppelt,  1  =  ange¬ 
koppelt) 

EG 

96 

$60 

Status  Sustain 
(0  =  aus,  1  =  an) 

SU 

97  -  106 

$61  —  $6A 

Name  des  Sounds  (10  Byte) 

keine 

Tabelle  4.  Speicherung  der  Sound-Parameter 

Ff]  £hra  1  QC 

100 


Ausgabe  7/Juli  1985 


Musik-Kurs 


C  64 


0  IF 
1000 
1005 
1010 
1015 
1020 
1025 
1030 
1033 
1040 
1045 
1050 
1055 
1060 
1065 
1070 
1120 
1130 
1140 

1150 

1 155 
1  160 
1165 
1170 

1175 
1 1  BO 
1  1B5 
1190 
1200 
1210 
1500 
1510 
1520 
1530 

1540 

1530 

1560 

2000 

2010 

2020 

2025 

2030 

2035 

2040 


2090 
21 10 
2120 


A>1  THEN  RETURN  : REM  DUMMY-ROUT I NE 

REM  *#****«#**#« ****************** 

REM  *** 

REM  «-**  SOUND  -  EDITOR 
REM  *** 

REM  ***  FUER  DIE  PARAMETER 
REM  *«*  VON  S1D  UND  MODULATOR 
REM  *** 

REM  ***  T.  KRAETZIG  1985 

REM  *** 

REM  ********••••••••*•*•********** 

REM 

REM  FALLS  VON  MENUE  7  GEKOMMEN, 

REM  DORTHIN  ZURUECK 
IF  M=7  THEN  7665 
REM 

REM  MODULATOR  LADEN 

IF  A=0  THEN  A"1 : LOAD "MODULATOR" «8,1 

REM 

REM  DIMENSIONIERUNGEN 

POKE  56, 144»  CLRi REM  D. -GRENZE  *9000 
DIM  V/.(7,255>  ,TNX(255)  ,TH(24> 

DIM  BF (2) ,T(2) , 0 <2> ,OF (2) , S (2) 

DIM  CI (2) ,C(2> ,AD(2) ,SR(2) 

DIM  BL» (6) ,KV* <3> ,KF*(6) ,MDS(3> 

DIM  TN*<11) 

REM 

GOSUB  9000  sREM  INITIALISIERUNGEN 

GOSUB  4000  :  REM  HAUPTMENUE 

REM 

REM  HAUPTSCHLEIFE,  SPRUNGVERTEILER 

GET  A*:IF  A*=»"“  THEN  1530 
A>ASC(AS) 

SYS  GS,VX(M,A)  : REM  BERECHN.  GOSUB 
GOTO  1530 

REM  NOTEN  SPIELEN 

REM=======«— b=»=»»««======== 

POKE  650,0 

F=TH  <TN7.  ( A) )  i  AD=M0«*72«  X-PEEK  (AD) 

IF  S<0>  THEN  SYS  DO, MO  ,F«BF(0>:POK 
E  SI+4  ,Cl «0> 

IF  S<1>  THEN  SYS  D0,M0*7  ,F*BF(l>:POK 
E  SX  +  11 ,C1 <1 > 

IF  S<2)  THEN  SYS  D0,M0*14 ,F*BF (2) : POK 
E  SI+18,C1 <2) 

IF  EG  THEN  POKE  AD,X  OR  1 

IF  SU  THEN  POKE  650 ,  1 28:  RETURN 

IF  PEEK (203) <  >64  AND  PEEK  ( 198)  =0  THEN 


*** 

*** 


2120 

2130  POKE  AD, X  AND  254 
2140  POKE  SI+4  ,C(0) 

2150  POKE  SI+11 ,C(1) :P0KE  SI+1B,C<2> 

2160  POKE  650, 128» RETURN 

2500  REM==========™— —=========== 

2510  REM  NUMERISCHE  PARAMETER  AENDERN, 
2520  REM  VERTEILER  EINZELROUTINEN 
2530  REM=========*— —========= 

2550  PW=PW+P2: IF  PW>-PM  THEN  PW=PW-PM 
2555  SYS  GT,PV 

2560  PW«PW+PlsIF  PW>-PM  THEN  PW-PW-PM 
256S  SYS  BT,PV 

2570  PW=PW-P1:IF  PW<  0  THEN  PW=PW*PM 
2575  SYS  GT,PV 

25B0  PW=PW-P2: IF  PW<  0  THEN  PW=PW+PM 
2585  SYS  GT,PV 

2600  REM - 

2605  REM  LFOF 

2610  SYS  DO , PA , PWt  L=LEN ( BTR* (PW) > 

2620  SYS  PR , 3+LN , 4 , BL  * ( 6-L ) ;  F2* ; PW 
2625  RETURN 

2630  REM - 

2635  REM  LFOP 

2640  POKE  PA,PU:L=LEN(STR*(FW) ) 

2650  SYS  PR , 3+LN, 11, BL*  < 4— L) ; F2S; PW 
2655  RETURN  ‘  *  * 

2660  REM - 

2665  REM  LFOA 

2670  POKE  PA,PW:L=LEN(STR*<PW) > 

2680  SYS  PR, 3+LN, 1 6 ,  BL* ( 4-L> ; F2»;  PW 
2685  RETURN 

2690  REM - 

2695  REM  LFO  KURVE 

2700  IF  A >1 36  OR  A<133  THEN  RETURN 

2705  B=A— 133  : REM  B=0, 1,2,3 

2710  POKE  PA, (PEEK (PA) AND  231>0RCB*8) 

2715  SYS  PR, 3+LN, 21 ,F2*;KV*(B) 

2717  SYS  PR, 6  , 34 , F2»; KFS (B) : RETURN 

2720  REM - 

2725  REM  LFO  MODUS 

2730  IF  A >135  OR  A<133  THEN  RETURN 

2735  B=A- 132  s REM  B-1,2,3 

2740  POKE  PA, (PEEK (PA) AND  249>0R<B*2) 

2745  SYS  PR , 3+LN , 28 , F2S ; MD* (B)  :  RETURN 

2750  REM - 

2755  REM  EG  A  D  S  R  EGA  (AN-0-4) 

2760  POKE  PA,PW:L=LEN(STR*(PW>  ) 

2763  SYS  PR,7,S,BL*<4-L> J F2*J PW:  RETURN 

2770  REM - 

2775  REM  EG  FORM 

2790  B=-(A>134) :REM  F1,F3  B=0  F5.F7  B=1 
2785  POKE  PA, (PEEK (PA) AND  247>OR<B*8) 

2790  SYS  PR,  7,2«?,F2*»  CHR*(43+2*B> 

2795  RETURN 

2810  REM - 

2815  REM  EG  MODUS 

2020  IF  A >135  OR  A<133  THEN  RETURN 

2825  B=A— 132  : REM  B«=l,2,3 

2830  POKE  PA, (PEEK (PA) AND  249>0R<B*2) 

2835  SYS  PR ,7,33, F2* ; MD* ( B ) : RETURN 

2840  REM - 

2845  REM  FILTER  FREQUENZ 

2850  POKE  PA, PW  AND  7 i POKE  PA+1 , INT (PW/8) 
2855  L=LEN  (STRS  (PW)  > 

2860  SYS  PR,5,2,BL«(3-L> ;F2<;PW: RETURN 

2865  REM - 

2870  REM  FILTER  RESONANZ 

2875  RF=(RF  AND  15) ♦ 16*PW: POKE  PA,RF 

2890  L=L£N(STR*<PW> > 

2885  SYS  PR,5,9,BL*C3-L> ; F25; PW:  RETURN 

2890  REM - 

2895  REM  FILTER  SCHALTER 
2900  IF  A>1 36  OR  A<133  THEN  RETURN 
2905  8=A-133  : REM  B=0, 1,2,3 

2910  X=2TB: Xl"255-X : REM  MASKEN 
2915  Y=RF  AND  X 

2920  RF=(RF  AND  X 1 ) OR ( X-Y) : POKE  PA,RF 
2925  Y=-l 28* (Y=0> :  AD= 1024+ (5+B) *40+15 
2930  FOR  I=AD  TO  AD+5 
2935  :  POKE  I , (PEEK ( I ) AND  127) OR  Y 
2940  NEXT: RETURN 

2945  REM - 

2950  REM  FILTER  MODUS 

2955  IF  A>136  OR  A<133  THEN  RETURN 

2960  B=A— 129  sREM  8=4, 5, 6, 7 

2965  X=2TB: X1=2S5-X:PEM  MASKEN 

2970  PW=PEEK(PA):Y=PW  AND  X 

2975  POKE  PA, (PW  AND  X1)QR<X-Y) 


<139> 

<102> 

<123> 

<253> 

<  1 33> 
<047> 
<0O1> 

<149> 
<084  > 

<159> 

<  1 48  > 
<173> 
<071  > 

<24Q> 

<  1 09  > 

<  1  93> 
<0  1 4  > 
<1 12> 
<007  > 
<020> 
<066  > 
<060  > 

<  1 05  > 

<141> 

<156> 

<  1  59> 
<052> 
<203> 
<202> 
<077> 
<2 1 1  > 
<252> 
<231  > 
<149> 

<  1  21  > 
<108> 
<1  12> 
<201  > 
<004> 
<221  > 
<  1  26> 
<047> 

<1  40> 

<  1 63> 

<230> 
<1 13> 

<  225  > 

<003> 
<068  > 
<101> 
<016> 
<057> 

<  1  91  > 
<035> 
<093> 
<221  > 

<  1 34  > 
<01 5> 

<  1 44  > 
<026> 
<125> 
<036> 
<136> 

<  046> 
<052> 
<237> 
<00S> 
<158> 
<217> 
<082  > 
<021  > 
<093> 
<232> 

<  247  > 

<  1 12> 

<036> 

<  1 23> 
<011> 
<021  > 
<142> 
<142> 
<029> 

<  1 64  > 
<08  5> 

<  1 14> 
<239> 

<  3  72> 

<  167> 
<0S8> 
<101> 
<118> 
<079> 
<202> 

<  1  4  1  > 
<213> 
<2X2> 
<222> 
<048> 
<200> 

<  167> 

<  1 18> 
<131  > 
•;  006  > 

<  172> 

<149> 

<  1 92  > 

<209> 

<  1 02> 
<037> 
<237> 

<  009  > 
'.000> 
<018> 
<062> 

<  006.'- 
<024> 
<025> 
<048> 
<087  > 
<005> 
<230> 

<  109> 
<049> 

<  024 > 

<097> 

<  117> 

<  134> 

<  199> 
<209> 

<  1 42> 

<  1 10> 

<  029 > 

<  185> 

<  1 04  > 

<  149> 

<  1 39  > 


2980 

2985 

2990 

2995 

3000 

3005 

3010 

3015 

3020 

3050 

3052 

3054 

3056 

3059 

3062 

3064 

3066 

3068 

3072 

3074 

3076 

3078 

3080 

3082 

3084 

3086 

3088 

3090 
3092 
3094 
3096 
3098 
3100 
31  10 
3112 
3114 
3116 
31  18 
3120 
3122 
3124 
3126 
3128 
3130 
3150 
3155 
3160 
3165 

3170 

3175 

3180 

3185 

3190 

3195 

3200 

3203 

3210 

3215 

3220 

3225 

3230 

3235 

3240 

3245 

3250 

3255 

3260 

3265 

3270 

3275 

3280 

3285 

3290 

3300 

3305 

3310 

3315 

3320 

3325 

3330 

3335 

3340 

3345 

3350 

3355 

3360 

3365 

3370 

3375 

3380 

3385 

3390 

3500 

3510 

3520 

3525 

3530 

3540 

3530 

3560 

3570 

3580 

3590 

3595 

3600 

3610 

3620 

3630 

3640 

3650 

3660 

3700 

3710 

3720 

3730 

3740 

3750 

3800 

3810 

3820 

3830 

3840 

3850 

3860 

3870 

4000 

4010 

4020 

4030 

4040 

4045 

4030 

4053 


Y=-128*(Y=0> :AD=1024+<1+B> «40+25 
FOR  I-AD  TO  AD-** 3 
:  POKE  I , (PEEK ( I ) AND  127)0R  Y 
NEX Ts  RETURN 

REPI-t-. - 

REM  LAUTSTAERKE 

POKE  PA, (PEEK (PA)  AND  240)  OR  PW 
L=LEN (STR* (PW) J 

SYS  PR , 5 , 3 1 , BL* ( 3-L  > ; F2S ; PW  i  RE  TURN 

REM - 

REM  BAS I 5FREQUENZ 

IF  A<>134  THEN  3064 

REM  F3  OFFSET  ERHOEHEN 

OF-OF*l*IF  OF< =50  THEN  3110 

OF— 49:  GOTO  3076 

IF  A<  >135  THEN  3074 

REM  F5  OFFSET  ERNIEDRIGEN 

OF*OF-l:IF  OF >»—49  THEN  3110 

OF=50: GOTO  3084 

IF  A<>133  THEN  3082 

REM  TONNUMMER  ERHOEHEN 

T-T+lsIF  T<=1 1  THEN  3110 

T=0: GOTO  3090 

IF  A<  >136  THEN  RETURN 

REM  TONNUMMER  ERNIEDRIGEN 

T-T-liIF  T>=0  THEN  3110 

T=l 1 : GOTO  3096 

REM  OKTAVE  ERHOEHEN 

0=0+1: IF  0<=5  THEN  3110 

0=0:  GOTO  3110 

REM  OKTAVE  ERNIEDRIGEN 

0-0-1: IF  O>=0  THEN  3110 

0=5: T= 10 

REM  BASISFREQUENZ  BERECHNEN 
IF  T=»|  1  AND  0=5  THEN  T=0:O-0 
BF«440*2T (0-4+ ( T-9 ) / 1 2+0F/ 1 200) 
0(SN)-Ox  T(SN)=T:OF (SN)-OF 
BF (SN) =BF*17. 0327 
SYS  DO ,M0+7*SN,F*BF (SN) 

REM  ANZEIGEN 

SYS  PR,3+SN,3,F2»; 0 

SYS  PR , 3+SN , 2 , TN* ( T ) 

SYS  PR  ,  3+SN ,  5 ,  R I  GH  TS  <  "  "+STR*  COF)  ,  3) 
RETURN 

REM - 

REM  PULSWEITE  STIMME 
SYS  DO, PA, PW 

SYS  PR  ,  3+SN , 9 , F2* ;  R I GHT *  ( -  (2SPACE >  "+S 
TR» (PW) ,4) 

RETURN 

REM - 

REM  A 

AD (SN) * (AD (SN) AND  15)  OR  PW-16 
POKE  PA, AD (SN) 

SYS  PR ,3+SN, 1 4 ,F2S; RIGHT* (STR* (PW) ,2) 
RETURN 

REM - 

REM  D 

AD ( SN )  =»  ( AD  ( SN )  AND  240)  OR  PW 
POKE  PA, AD (SN) 


REM - 

REM  S 

SR ( SN >  =  ( SR ( SN >  AND  15)  OR  PU*16 
POKE  PA, SR (SN) 


*  ""Tqf  (PW)  ,2) 


REM  R 

SR(SN)  »  (SR  (SN)  AND  240)  OR  PW 

POKE  PA, SR (SN) 

SYS  PR , 3+SN, 23, F 2»; RIGHT» (STR» (PW) ,2) 
RETURN 

REM - 

REM  CONTROL  (BIT  7-S) 

IF  A< >133  AND  A<>134  THEN  3335 
REM  BIT  SETZEN 
C ( SN ) =  C ( SN )  OR  2TC7-S) 

CI  (SN)  =C  (SN)  OR  1 

SYS  PR , 3+SN , 26*S ,  F2S; “ I“ J GOTO  3355 
REM  BIT  RUECKSETZEN 
C (SN) =C (SN)  AND  255-2 t (7-S) 

CI (SN) =C (SN)  OR  1 

SYS  PR,3+SNt26+S,F2S; “0" 

REM  CONTROL-BYTE  ZUM  SID 
X-C(SN):IF  SU  THEN  X=C1 (SN) 

POKE  SI^7*SNf4,X:RETURN 

REM - 

REM  PORTA 

POKE  PA,PW:L=LEN<STR*(PW) ) 

SYS  PR ,3+SN ,34, BL» (4-L) j F2I; PW 
RETURN 

REM====================— —«==== 

REM  STIMME  ( DES-) AKT I VIEREN 

SYS  PR, 15, 10, F2»; "STIMME  1,2, 3" 

GET  A»:IF  AS=" “THEN  3530 
IF  A»="1-0R  A*--2-DR  A*-"3'THEN  3560 
GOTO  3590 

I-VAL (A»)-l  :S(I)=NOT  S(I) 

IF  S(I)  THEN  PRINT  CHR»<18); 

SYS  PR, 21 ,31 +2» I ,F1»;A»; CHR» ( 1 46 ) ; 

SYS  PR, 15, 10, Fl»; "STIMME  1,2,3" 

RETURN 

REM  SOFTWARE-EG  AUSLOESEN 

POKE  650,64 

AD=M0+72: X=PEEK (AD) : POKE  AD,X  OR  1 
IF  PEEK (203) 064  AND  PEEK(19B>=0  THEN 
5650 

POKE  AD, X  AND  254s POKE  650 , 1 28: RETURN 
REM  SOFTWARE-EG  AN- /ABKOPPELN 
EG-NOT  EG 

IF  EG  THEN  PRINT  CHR* (18); 

SYS  PR, 23, 31, Fi*; "SOFT-EG (RVOFF > " : RET 
URN 

REM============— —«*«*=== 


SU=NOT  SU 

IF  SU  THEN  PRINT  CHR* (18); 

SYS  PR, 22, 31 ,Fi»; MSUSTA1NCRV0FF>" 

IF  NOT  SU  THEN  2140 
RETURN 

REM  HAUPTMENUE 

M=3: PV=0: SYS  CL: PRINT  "<H0ME>";F1* 
PRINT"  <.C£C.CC_CCAC.CLCX.C_(L(LC.acj^ 
CC.C_CX,CCX” 

PRINT"  a<RVSON,9SPACE>M  0  D  Ü  L  A  T  O 
R< 1 0SPACE , RVOFF  >3" 

PRINT"  & < RVSON , 5SPACE > THOMAS  KRAETZIG 
<7SPACE  >1985  <5SPACE , RVOFF  >ü" 

PRINT" 

££.c.c.c.c.c.y» 


<169> 

<  1 87  > 
<254  > 
<008  > 

<  1 97  > 
<156> 
<179> 
<160> 
<226  > 
<247  > 
<104> 
<053> 
<024> 
<060  > 
<243> 
<065> 
<002  > 
<000  > 
<074  > 
<073> 
<17B> 
<147> 
<217  > 
<021  > 

<  152> 

<  1 04  > 
<025  > 
<197> 
<101  > 
<219> 
<169> 
<101  > 
<255> 
<045 > 
<084  > 
<005> 
<008> 
<252> 
<251  > 
<030> 
<219> 
<033> 
<204> 
<212> 
<092> 
<127> 
<037  > 

<223> 
<252> 
<117> 
<072> 
<237  > 
<077> 
<057  > 
<026> 
<147> 

<  1 05  > 
<040  > 

<  107> 
<090  > 
<056> 
<177> 
<150> 
<105> 
<169> 
<1 14> 
<086> 
<207  > 

<179> 

<  1 64  > 

<199> 

<  147> 
<1 16> 
<242> 

<  1 40> 
<034> 
<070> 
<054> 
<055> 

<  1 49> 
<213> 

<  1 45  > 
<076 > 
<02 1> 
<02 1> 
<208> 
<139> 
<057  > 
<08 1> 
<068  > 
<21 4  > 
<217> 
<17 1  > 

<  1 09  > 
<191  > 
<0S3> 
<11  1> 
<232> 
<069 > 
<18 1  > 
<1 15> 
<20 1> 
<1 18> 
<167> 
<016> 
<13S> 

<036  > 

<004  > 

<195> 

<01 2> 
<063> 
<116> 
<198> 
<136> 
<01  8> 
<189> 

<170> 
<21 6> 
<079> 
<236> 
<174> 
<062  > 
<120> 
<108> 
<1©7> 
<161  > 
<068> 
<181  > 
<037> 

<126> 

<152> 

<234  > 

<153> 


4100  SYS  PR, 6, 1 ,F2*? "SH  V";Fl*j"  STIMMEN"  <189> 
4105  SYS  PR, 7,1 ,F2* i " <3SPACE>F" ; F 1 *j "  FILT 

ER/LAUTSTAERKE"  <053> 

4110  SYS  PR, 8 , 1 ,F2»; " <3SPACE>L" ; F 1»;  "  LFO"  <232> 
4115  SYS  PR, 9, 1 ,F2** " <3SPACE>H" ; Fl»; "  HUEL 

LKURVE  (SOFT-EG)"  <086> 

4120  SYS  PR, 1 0, I ,F2*| " <3SPACE>K" ; F 1 "  KSV 


4125 

4130 

4135 

4200 

4210 

4220 

4240 

4245 

4250 

4255 

4260 

4270 

4280 

4290 

4292 

4294 

4300 

4310 

4320 

4330 

4340 
4  350 
4  360 


4  380 
4  590 
4400 
4410 
4  420 
4  430 
4500 
4  505 
4510 
4515 

4520 


SYS  PR, 1 1, 1 ,F2»; "SH  S";F1»; "  SOUNDS" 
SYS  PR, 12, 1 ,F2S; " C3SPACE >D" : Fl *; “  DIS 


SYS  PR, 15,1,  F2»; “VC2SPACE) 1,2,3" 

SYS  PR, 15, 10, Fl*j "STIMME  1,2,3 
SYS  PR, 15, 26, F2»; "S" 

SYS  PR, 15, 32, Fl»; "SUSTAIN" 

SYS  PR, 16,1,  F2»; "SH  SPACE" 

SYS  PH, 16, 10, Fl»; "EG  (AB-) KOPPELN“ 

SYS  PR, 16,26, F2»; "SPACE" 

SYS  PR, 16, 32, Fl»; "EG  GATE" 

SYS  PR, 17, 1 ,  F2S; "X" 

SYS  PR, 17, 10, Fl»; "HAUPTMENUE" 

SYS  PR,19,0,F2»; 

FOR  1=1  TO  4 

:  PRINT“ tSPACE, RVSON, SPACE Ä  S  fl 
j  &  (SPACE , RVOFF  > " s  NE  X  T 
PR  I  NT  "  {SPACE  ,  RVSON)  OaWJEflRÄTflYaUfll  Ä35 
Pflefl+3tS;5=“ 

SYS  PR, 19,0,; 

FOR  1=1  TO  2 

:  PRINT " {SPACE , R I GHT , SPACE , R I GHT , SP AC 
E , 3RI GHT , SPACE , RI GHT , SPACE , R I GHT , SPAC 
E , 3R I GHT , SPACE , R I GHT , SPACE , 3R I GH  T , SPA 
CE , R I GHT , SPACE  »RIGHT , SPACE  > " s  NE XT 
PR I NT" {SPACE , R I GHT>2  <R I GHT  >3  <3R I GHT  >5 
{RI GHT >6 {RIGHT >7 (3RI GHT >9 {RIGHT  >0<3RI 
GHT >- <R I GHT > f {RIGHT >C" 

SYS  PR, 19,31 ,F1»; "AKTIV: " 

FOR  1=0  TO  2 
:  A*=RIGHT » (STR» ( 2+ 1 )  ,1) 

:  GOSUB  3570: NEXT  I 
GOSUB  3840: GOSUB  3740 
RETURN 

REM  UNTERMENUE  STIMME 


4550 

4555 

4560 

4565 

4570 

4575 

4580 

4383 

4590 

4595 

4600 

4602 

4604 

4606 

4600 

4610 

4612 

4614 

4616 

4618 

4620 

4622 

4624 

4626 

4628 

4630 

4632 

4634 

4636 

4638 

4640 

4642 

4650 

4652 

4654 

4636 

4658 

4660 

4662 

4664 
4666 
4668 
4670 
4672 
4674 
4676 
4678 
4680 
4682 
4684 
4686 
4688 
4690 
4692 
4  700 

4702 

■4704 

4706 

4708 

4710 

4730 

4732 

4734 

4736 

4738 

4740 

4760 

4762 

4764 


rOt...  ■  !■■■■■■■»■■  r  «SS 

M= 1 : PV=3050 : SYS  CL : PR I NT "  {HOME , RVOFF ) 
" ;  F 1  * 

PRINT"  «SPACE >F  C4SPACE )PW {3SPACE > A <2S 
PACE  >D  <2SPACE  > S {2SPACE  >R  CONTROL  PORT 
A" 

PRINT" 

££R.qcj.C5" 

FOR  1=1  TO  3 

PRINT"  S<ÄSPACE)a<4SPACE)a{25PACE>a{2 
SPACE 55 <2SPACE >  Ä  (  2SPACE )  a  {  7SPAC E >  3  <4S 

PACE>a" 

NEXT  I 

print" 

1T5Y££££:ir 

sys  PR,7,26,"aaaa£S7££SYNC" 
sys  PR,8,26,"aaaaa7C£*iNG" 

SYS  PR, 9, 1 ,F2»; "Fl <2SPACE>++" ;F 1* 

SYS  PR, 9, 26,  "aaaa?££TESTM 

SYS  PR,  10,  1,F2»;  "F3  {2SPACE5+- ;F  1* 

SYS  PR,10,26,"aaa?CiTRIAN" 

SYS  PR, 1 1 , 1 ,F2»; "F5  <2SPACE>-" ;F 1* 

SYS  PR, 1 1 ,26, "aaTfiLSAWTOOTH“ 

SYS  PR, 12,1 ,F2»; "F7 {2SPACE5  —  ";  Fl* 

SYS  PR,  12,26, "a?££SQUARE" 

SYS  PR, 13,26, "7££N0ISE" 

REM  PARAMETER  ANZEIGEN 
A*=F2* : F2*“F 1  * 

FOR  SN=0  TO  2 

x  T=T<SN) :0=Q(SN)xOF=OF(SN) 

:  GOSUB  3 122: REM  F 
:  PW= (USR (M0+7*SN*2 ) > : GOSUB  3165 
:  PW=INT (AD (SN) / 16)  : GOSUB  3195 

:  PW=AD (SN) AND  15  : GOSUB  3225 

:  PW=INT(SR(SN)/16)  i GOSUB  3255 
:  PW=SR (SN) AND  15  * GOSUB  3285 

i  REM  CONTROL -BYTE  (7  BIT» 

:  B=C<SN) : A=128 

:  SYS  PF, 3+SN, 26, Fl»; "0000000“ 

:  FÜR  S=7  TO  1  STEP  -1 
:  IF (B  AND  A) THEN  SYS  PR,3+SN,33-S, " 1 


<045> 

<190> 

<105> 
<197> 
<  122> 
<2357 

<142> 

<  090  > 
<229> 
<170> 
<127> 

<  050  > 
<0 1 0> 
<226> 

<  04 1  > 

<  164> 

<  121  > 
<017> 
<107> 

<003> 

<238> 
<  157> 
<145> 


<012> 

<146> 

<  1 85> 
<066 > 
<230> 

<070> 

<237> 

<  151  > 
<016> 

<  161  > 

<055> 


:  A=A/2 : NEXT  S 
.  PA— MO-*-7*SN+4*  PW=PEEK  (PA) 

:  GOSUB  3370: REM  PORTA 

NEXT  SN 

F2S=AS 

SN=0: AV=4700: SYS  GS, AV: RETURN 
REM - 


REM  PARAMETERWAHL  DURCH  CURSOR 
REM  HOCH 

SN=SN-1 : IF  SN<0  THEN  SN-2 
GOSUB  5813: SYS  GT,AV 
REM  RUNTER 

SN=SN+1 : IF  SN >2  THEN  SN=0 

GOSUB  5815; SYS  GT  ,AV 

REM  RECHTS 

IF  AVO4880  THEN  4674 
S=S+l : I F  S>6  THEN  AV-4910 
GOTO  4678 

AV=AV+30:IF  AV>4910  THEN  AV-4700 
IF  AV=48B0  THEN  S»0 
GOSUB  5815: SYS  GT , AV 
REM  LINKS 

IF  AVO48B0  THEN  4688 
S=S— 1 : I F  S<0  THEN  AV-4B50 
GOTO  4692 

AV=AV-30: IF  AVK4700  THEN  AV=4910 
IF  AV=4080  THEN  S-6 
GOSUB  5815: SYS  GT.AV 

REM - 

REM  BASISFREQUENZ  WAEHLEN 
PB-FA+40» (SN»3> +2 
FOR  I=PB  TO  PB+5: POKE  I,F2:NEXT 
T=T (SN) : 0=0 ( SN ) : QF=OF ( SN ) 

PA=M0+7 *SN : PV-3050:  RETURN 

REM - 

REM  PULSWEITE  WAEHLEN 
PB=FA+40» (SN+3) +9 

FOR  1=PB  TO  PB-*-3 1  POKE  I,F2tNEXT 
PA=M0*-7*SN+2x  PW=USR  (PA)  :PM=4096 
Pl  =  l:P2=50sPV=3150:  RETURN 

REM  ATTACK  WAEHLEN 
PB=FA«-40*  (SN+3)  +14 


<  1 44  > 

<  122> 

<  177> 
<205> 
<010> 
<214> 

<  1 84> 

<229> 
<252> 
<031  > 

<  157> 

<  1 42> 
<140> 
<227> 
<233> 
<0ZQ> 
<178> 
<062> 
<213> 
<204> 
<246> 
<246> 

<  210> 
<077> 

<  1 14> 

<119> 

<050> 

<134> 

<136> 

<017> 

<083> 

<  197> 
<002> 
<062> 
<238> 
<241  > 
<135> 
<218> 
<181> 

<  138> 
<224> 
<164> 
<036> 
<064> 

<  180> 
<215> 
<21B> 
<238> 
<  1 06> 
<055> 
<078> 
<190> 
<232> 
<238> 
<252> 
<112> 
<229> 
<162> 
<017> 
<070> 

<  167> 
<142> 
<227> 

<  199> 

<045> 
<005  > 
<240> 
<172> 

<247> 

<017> 


Listing  »Sound-Editor« 
(Fortsetiung  auf  Seite  139) 
Beachten  Sie  bitte  Seite  77. 


Ausgabe  7/Juli  1935 
64er-online.net 


WVv\ 


%  V  V  V,  V  V  v. \V  v  v\  Nv  \ 
*  %  %  *%>  x-.;  *-,->»>  x  •  vk 


■eM.h'ft' _ 


\ N  •->*  V.  '^k‘vX%  '  %  v  V 

^  i  1 1  3»|  m 


:,*&■  .'?■  'f  -f  yf  y? //  /fj 

?4sV-  ®A 

‘<r  Ar&r.ZiS/ 


Musik-Kurs 


C  64 


4766 

4768 

4770 

4790 

4792 

4794 

4796 

4798 

4800 

4020 

4822 

4824 

4826 

4828 

4830 

4B50 

4832 

4G54 

4856 

4858 

4060 

4880 

4882 

4884 

4886 

4888 

4910 

4912 

4914 

4916 

4918 

4920 

5000 

5005 

5010 

5015 


POKE  PB ,F2: POKE  PB+1,F2 
PA=SI  *7*»SN+5s  PW“  INT  (AD  ( SN)  / 16). 
PM= 16:P 1=1 :P2=1:PV=31 75: RETURN 
REM - 

REM  DECAY  WAEHLEN 
PB=FA*40*  (SN+3) +1 7 
POKE  PB,F2:POKE  PB+1 ,F2 
PA=SI+7*SN+5x  PW-AD (SN)  AND  15 

PM= 1 6 1 P 1 ■ 1 :  P2- 1 : P V-320S : RETURN 

REM - 

REM  SUSTAIN  WAEHLEN 
PB=FA+40*  <SN+3> +2B 
POKE  FB,F2: FOKE  PB+1,F2 

PA=SI+7*SN+6:PWaINT  (SR(SN) 716) 
PM-1 6: P 1=1: P2= 1 : PV=3235x RETURN 

REM - 

REM  RELEASE  WAEHLEN 
PB-FA+40- (SN+3) +23 
POKE  PB ,F2:  POKE  PB+1,F2 
PA=Sl+7*SN+6sPW«SR(SN) AND  15 
PM= 1 6  :  P  1  - 1  t  P2- 1  *  PV«3265 : RETURN 
REM - 


REM  CONTROL -BYTE  WAEHLEN 
PB=FA*40*  (SN+3) +26+S 
POKE  PB,F2 

PA=S 1 +7*SN+4: PV=3300: RETURN 

REM - 

RFM  PORTA  WAEHLEN 
PB-FA+40* (SN+3) +35 
FÜR  1=0  TO  2: POKE  PB+I,F2:NEXT 
PA=M0+7*SN+4 : PW*PEEK ( PA ) : PM=256 
P 1 - 1 : P2» 1 0: PV=3370:  RETURN 

REW—w— ■■■■——  ■—■■■■■■■ 

REM  UNTERMENUE  FILTER/LAUT 

M=2: PV=0:  SYS  CL SPRINT"  C HOME , RVOFF > •• ; F 
IS 


<095> 
<194> 
<209> 
<202> 
<195> 
<050> 
<125> 
<219> 
<233> 
<232> 
<162> 
<074> 
<155> 
<031  i 
<010> 
<006> 
<134> 

<  107> 
<185> 
<056> 
<043> 
<037> 
<058> 

<  138> 
<246> 
<054> 
<067> 
<092> 

<  171  > 
<127> 
<145> 
<165> 

<  1 41  > 
<098> 
<151  > 


5030 

5035 

5040 

5045 

5050 

5055 

5060 

5065 

5070 

3075 

3080 

5085 

5090 

5095 

5100 

5102 

5104 


F I LTER/LAUTSTAER  KE " 

cj:_c_c&y  C-C.C_C-C.G-CC  ‘gAQ.c_c.CCCy 


r ILTF.fi  RES  fiSCHALTERfi  MODUS  fi 


51  16 

SI 18 

S120 

5122 

5125 

5130 

5135 

5140 

5145 

5150 

3155 

5160 

5165 

5170 

5175 

5180 

5200 

5205 

5210 

5215 

5220 

5225 

5250 

5255 

5260 

5265 

S270 

5275 

5300 

5305 

5310 

5315 

3320 

5325 

5330 

5350 

5355 

5360 

5365 

3370 

5375 

5380 

5400 

5405 

5410 

5415 

5420 

5425 

5500 

5505 

5510 

5515 

5520 

5525 

5530 


PRINT" 

PRINT" 

fififi&r 

PRINT" 

LAUTfi" 

PRINT 
S£££ST 

PRINT"  fi<SSPACE )fi<5SPACE )  fi  FILTl C2SPA 
CE  >fi C3SPACE  >LP  C2SPACE  )  &  C4SPACE>fi" 
PRINT"  0.c_ccc_crcccxrg  FILT2C2SPACE)fiC3 
SPACE  IBP  C2SPACE  >aE£G£7" 

PRINT"  fiCUSPACEJfi  FILT3C2SPACE>fiC3SP 
ACE)HP  C2SPAEE>fi" 

PRINT"  fi<l lSPACEifi  FILTEX  fiC2SPACE>30 
FF  fi" 

PRINT 

PRINT  F2S; "  Fl"jFl$; " (4SPACE>++C6SPAC 
E>FILT1 <6SPACE)LP  C4SPACE  >++" 

PRINT  F2S; "  F3" f  F  1 S ; " (4SPACE  >+ C7SPACE 
JFILT2 C6SPACE >BP  C4SPACE >+" 

PRINT  F2S? "  F5" ; F 1 *; " C4SPACE)— C7SPACE 
>F I LT3 C6SPACE >HP  C45PACE  >-" 

PRINT  F2S; "  F7  " ;  F 1  *;  " C4SPACE >— C7SPACE 
>FILTEX C4SPACE  >30FF C3SPACE) — " 

PW- ( PEEK ( MO+2 1 >  AND  7 ) +B+PEEK  <  MO+22 ) 

SYS  PR, 3,  7-LEN (STR* (PW) ) ,PW 

PW-INT(RF/16) 

SYS  PR , 5 , 1 2-LEN ( STRS ( PW ) ) , PW 

IF  RF  AND  I  THEN  SVS  PR ,5,15,“ CRVSON) 

FILTl »SPACE , RVOFF  > " 

IF  RF  AND  2  THEN  SVS  PR  ,6,  15,  '*  CRVSON) 
F I LT2  CSPACE  ,  RVOFF  > " 

IF  RF  AND  4  THEN  SVS  PR , 7 , 15, " CRVSON) 
FILT3  CSPACE  ,  RVOFF  )  " 

IF  RF  AND  8  THEN  SYS  PR, 8 , 15, M CRVSON) 
TILTEX CRVOFF)" 

PW=PEEK<M0+23> 

IF  PW  AND  16  THEN  SYS  PR, 5, 25, "  CRVSON 
,  SP ACE >L P  CSPACE  ,  RVDFF  >  " 

IF  PW  AND  32  THEN  SVS  PR  ,  6 , 2S  ,  "  CRVSON 
, SPACE  >BP  CSPACE , RVOFF  > " 

IF  PW  AND  64  THEN  SYS  PR , 7 , 25 , " CRVSON 
, SPACE > HP CSPACE , RVOFF  > " 

IF  PW  AND  128  THEN  SYS  PR , 8, 25, “ CRVSO 

N  >30FF  CRVOFF  >  M 

PW=PE0<  (MO+23) AND  IS 

SYS  PR, 5, 34— LEN (STR* (PW) ) ,PW 

AV=5200: SYS  GS, AV: RETURN 

REM - 

REM  PARAMETERWAHL  DURCH  CURSOR 
REM  RECHTS 

AV=AV+50:  IF  AV>5400  THEN  AV=5200 
GOTO  5165 
REM  LINKS 

AV=AV-50:IF  AV<5200  THEN  AV=5400 
GOSUB  5815t A-PB-FA-200 
IF  AOIB  AND  A<  >25  THEN  SYS  GT,  AV 
FOR  J=1  TO  3:  P8“PB+4W:  GOSUB  5B15:NEXT 
PB=PB-1 20: SYS  GT ,  AV 

REM - 

REM  FILTERFREOUENZ  ANWAEHLEN 
PB=FA+203 

FOR  I=PB  TD  PB+3: POKE  I,F2:NEXT 
PA-MO*21 :PW=PEEK  <PA) +8*PEEK  <PA+1 ) 
PM-204B: PI  =  L : P2-S0: PV-2050: RETURN 

REM - 

REM  RESONANZ  ANWAEHLEN 
PB=FA+2l 0 

POKE  PB, F2: POKE  PB+l ,F2 
PA=S I +23 : PW= I NT ( RF/ 1 6 ) 

PM= 1 6  t  P 1 - 1 : P2“ 1 : PV=2875 : RETURN 

REM - 

REM  SCHALTER  ANWAEHLEN 
PB“FA*215 

FOR  1=0  TO  120  STEP  40:FOR  J=0  TO  S 
:  POKE  PB+l+J  ,F2:  NEXT  :  NEXT 
PA=S I +23 : PW“RF  AND  15 
PV=2900:  RETURN 

REM - 

REM  MODUS  ANWAEHLEN 
PB=FA+22S 

FOR  1=0  TO  120  STEP  40: FOR  J=0  TO  3 
s  POKE  PB  +  I+J ,F2a  NEXT s  NEXT 
PA=MO+23 
PV- 2955:  RETURN 

REM - 


REM  LAUTSTAERKE  ANWAEHLEN 
PB-FA+232 

POKE  PB, F2: POKE  PB+1,F2 
PA=MC)+23=PW=PEEK(PA)  AND  15 
PM= 1 6 : P 1 ■ 1 : P2« 1 :  P V=30 1 0 : RETURN 

REM-— — — 


M=3t SYS  CL : P  R I NT " CHOME , RVOFF 

PRINT"  C3SPACE  >  a£££S££‘i?££i&c^cc£c  r  ccccc 

£&££££££•• 

PR  I  NT "  C3SPACE )fi  LFOF  JLFOPfiLFOAfiKURVE 
fiMODUSfi” 

PRINT"  *c>cccj:c_c+c^^ 


<  1 49> 
<124> 
<040> 

<  123> 
<172> 
<145> 
<078> 
<004> 
<172> 
<190> 

<210> 

<  135> 

<  07 1  > 

<  005  > 
<125> 

< 082>k 
<087> 
<093> 


<227  > 

<  141  > 
<064> 

<  152  > 
<038> 
<032> 
<21  1> 

<  128> 
<169> 
<140> 
<071> 

<187> 
<207> 
<058> 
<068> 
<154> 
<102> 
<193> 
<  120> 

<  0 1 4  > 

<  168  > 
<0S2> 
<152> 
<045> 
<  168> 
<084> 
<221  > 
<210> 
<202> 
<069> 
<223> 
<135> 
<066> 
<015> 

<209> 

<252> 

<  169> 
<018> 
<183> 

<  1 16> 
<001> 
<014> 
<047> 

<  153> 
<067> 
<235> 
<123> 
<087/ 

<  131  > 

<  0 1 4> 

<  1 41  > 
<006> 

<179> 

<  162> 


5535  FOR  Z-3  TO  9 


5540  :  SYS  PR,Z,l,-fi  fiCöSPACE > JJC4SPACE )fi<4 
SPACE  >  fi  C 6SPACE  >  fi  CSSPACE  )  fi  C4SPACE  >  fi“ 
5545  NEXT  Z 

cc.FC.ccccrccc.c? 

5555  PRINT  F2 F 1 “ ; F 1 S; " C2SPACE5++ C5SPAC 
E  >  ++ CSSPACE  >++  C2SPACE  > TR I AN  C2SPACE JRE 
SET" 

5560  PRINT  F2*;"  F3";F14* " C2SPACE>+ C6SPACE 
>  +  <  4SP ACE >  +  <  3SP ACE  >  SA WUP  C2SPACE >  HOL D " 
5565  PRINT  F2*;"  F5" j Fl *; " (2SPACE J- C6SPACE 
>—  C4SPACE >- C3SPACE >SAWDWN  RUN" 

5570  PRINT  F2 F7 " ; F 1 S ; " C2SPACE > —  C5SPAC 

E>  —  C3SPACE  > - CSSPACE 1 SQUARE» 

5575  FÜR  LN=0  TO  6 
55B0  :  Z=3+LN 

5585  :  SYS  PR , Z, 2,CHR* (48+LN) 

5590  s  PW-USR(M0+32+5*LN)  s REM  LFOF 

5595  :  SYS  PR, Z, 10-LEN (STR* (PW> ) ,PW 
5600  :  PW=PEEK  Cf10+34+5*LN)  :  REM  LFOP 

5605  s  SVS  PR , Z , 1 5— LEN  <  STR* ( PW* )  , PW 
5610  :  PW-PEEK (M0+35+5+LN)  c REM  LFOA 
5615  :  SYS  PR,Z,20-LEN(STR*(PW) > ,PW 
5620  :  PW=*PEEK  (M0+36+5*LN>  :  REM  LFOC 

5625  :  SYS  PR, Z, 21 , KV* ( (PW  AND  24) /8) 

5630  :  SYS  PR , Z, 28 , MD* ( (PW  AND  6>/2> 

5640  NEXT  LN 

564S  LN=0:AV=5830:SYS  GS, AV: RETURN 

5650  REM - 

5655  REM  PARAMETERWAHL  DURCH  CURSOR 
5670  REM  HOCH 

5675  LN=LN-1 : IF  LN<0  THEN  LN=6 
5680  GOSUB  5815: SYS  GT, AV 
5685  REM  RUNTER 
5690  LN=LN+1 : IF  LN>6  THEN  LN=0 
5695  GOSUB  581 5: SYS  GT  t AV 
5700  REM  RECHTS 

5705  AV=AV^30: IF  AV>5950  THEN  AV-5830 
5710  GOSUB  5810: SYS  GT , AV 
5715  REM  LINKS 

5720  AV»AV-30:IF  AV<3830  THEN  AV=5950 
5725  GOSUB  58 10: SYS  GT , AV 

5800  REM - 

5805  REM  AKTUELES  PARAMETERFELD  FARBE  1 
5810  SYS  PR , 6 , 34 , " <  4SPACE  > " 

5815  FOR  I=PB  TO  PB+6:P0KE  I ,F1 : NEXT: RETUR 
N 

5820  REM - 

5825  REM  LFOF  ANWAEHLEN 

5830  PB=FA+40« (LN+3) +4 

5835  FOR  I  =PB  TO  PB+-5:P0KE  I,F2:NEXT 

5840  PA=M0+32+S*LN: PW=USR (PA>  :  PM=65536 

5845  Pl=l : P2=200: PV“261 0: RETURN 

5850  REM - 


5855  REM  LFOP  ANWAEHLEN 

5860  PB«FA+40* (LN+3 ) +1 1 

5865  FOR  1  =PB  TQ  PB-*-3:P0KE  1,F2:NEXT 

5870  PA=M0+34+5*LN:  PW=PEEK (PA)  :  PM=256 

5875  P1=1:P2=10  : PV=2640: RETURN 

5880  REM - 

5885  REM  LFGA  WAEHLEN 

5890  PB=FA+40* (LN+3 ) + 16 

5895  FOR  I-PB  TO  PB+3: POKE  I,F2:NEXT 

5900  PA— MO »-35+5 »LN:  PW-PEEK  (PA)  «  PM-236 

5905  P1-1:P2-10  : PV=2670: RETURN 

5910  REM - 


5915  REM  LFO  KURVE  WAEHLEN 

5920  PB=FA+40*<LN+3>*21 

5925  FOR  I=PB  TO  PB+5:P0KE  I,F2:NEXT 

5930  PA-MO+36+5+LN:PV=2700 

5935  B=CPEEK(PA)  AND  24) /8j GOTO  2717 

5940  REM - 


5945  REM  LFO  MODUS  WAEHLEN 
5950  PB=FA+40* (LN+3) +28 
5955  FOR  J-PB  TO  PB+4:P0KE  J,F2:NEXT 
5960  PA=M0+36+5«LN 
5965  PV=2730: RETURN 

6000  REM: 

6010  REM  UNTERMENUE  EG 
6020  REM: 

6030  M=4 : SYS  CL: PR INT" CHOME , RVOFF > " ; Fl* 
6040  PRINT"  SOFTWARE-EG": PRINT: PRINT 
6050  PRINT”  »t.c,c_c_CYccccycccc-B CC C C?C,C C CgC ccc 
£r£C£££s” 

6060  PRINT"  fiC2SPACE>A  fiC2SPACEiD  5C2SPACE 
>S  fiC2SPACE>R  Ä  EGAfi  FORMfiMODUSfi" 

6070  PRINT"  gCXJJAC C C 

6080  PRINT"  fi<4SPACE>fi<4SPACEJfiC4SPACE>fiC4 
SPACE  >fiC4SPACE>fiC5SPACEifi  CSSPACE  >fi" 
6090  PRINT"  yCC.C.Cr.C^ACFCCCCy.CCCC.FCCCC.FCCC.C 
£g£££££y" 

6100  SYS  PR, 10,1 ,F2*j "Fl ":PRINT"  F3" 

6110  PRINT"  F5" : PR I NT "  F7";F1* 

6120  SYS  PR, 10, 13, "++<18SPACE>RESET" 

6130  SYS  PR, 11,13, "+<15SPACE)+C3SPACE>H0LD 


6140 

6150 

6160 

6170 

6180 

6190 

6210 

6220 

6230 

6240 

6300 

6305 

6310 

6315 

6320 

6325 

6330 

6335 

6340 

6345 

6350 

6370 

6375 

6380 

6385 

6390 

6395 

6400 

6405 

6410 

6415 

6420 

6425 

6430 

6435 

6440 

6445 

6450 

6455 

6460 

6500 

6510 

6520 


SYS  PR , 1 2 , 1 3 , " -  CI 5SPACE >- C 3SPACE ) RUN 1 
SYS  PR, 13, 13," — " 

FOR  1=0  TO  4 
:  PW=PEEK (M0+67+I ) 

:  SYS  PR , 7 , 6+5* I -LEN  <  STR*  <  PW ) ) , PW 
NEXT  I 

PW=PEEK(M0*72) 

SYS  PR ,7,29, CHR* ( 43+  < PW  AND  B)/4) 

SYS  PR ,7,33, MD* ( ( PW  AND  6) /2) 

AV=6310: AN=0: SYS  GT ,AV 

REM - 

REM  A  D  S  R  EGA  <AN=0-4>  WAEHLEN 
PB=FA*282+5*ANa  S-2+5*AN 
FOR  I “PB  TO  PB+3: POKE  I,F2:NEXT 
PA=M0+67 +AN  : PW=PEEK  <  PA ) 

PM=2S6: IF  AN=0  THEN  PM=129 

P 1  =  1 : P2= 1 0 : PV=2 760 : RE  T  URN 

REM - 

REM  EG  FORfl  WAEHLEN 
PB=FA+2B0+27 : POKE  PB+2 , F2 
PA-MO+72: PV-27B0: RETURN 

REM  EG  MODUS  WAEHLEN 
PB=F  A-»2B0*33 

FOR  I =PB  TO  PB+4: POKE  I,F2:NEXT 
PA=MD+72: PV=2820: RETURN 

REM - 

REM  PARAMETERWAHL  DURCH  CURSOR 
REM  LINKS 

IF  AVO6310  THEN  6420 
ANaAN-lsZF  AN >=»0  THEN  6430 
AV=AV-35: AN=4 
IF  AV<631 0  THEN  AV=6380 
GOSUB  5815: SYS  GT, AV 
REM  RECHTS 

IF  AVO6310  THEN  6450 
AN=AN+1 : IF  AN<=4  THEN  6460 
AV=AV+35 

IF  AV>6380  THEN  AV=6310:AN=0 
GOSUB  58 15: SYS  GT , AV 
REM== 


<075> 

<  135  > 

<  166> 

<060> 

<  179> 
<158> 
<056> 
<070> 

<  203  > 
<103> 
<218> 
<099> 
<224> 
<112> 
<209> 

<  151  > 
<058> 
<239> 

<  042  > 
<221  > 
<237> 
<U0> 
<220> 

<  186> 
<122> 
<235> 
<178> 
<236> 
<245> 
<  121  > 
<254  > 
<004  > 
<192> 
<253> 
<109> 

<050> 

<212> 

<032> 

<007> 

<126> 

<183> 

<  1 1 4> 
<242> 
<072> 
<0B3> 

<154> 

<  1 18> 
<098> 
<016> 
<200> 

<  1 19> 

<  185> 

<  1 50  > 
<132> 

<  047  > 
<051  > 
<113> 
<217> 

<  1 79> 
<1Q9> 
<077> 
<076> 
<182> 
<248> 

<  1 18> 
<0B0> 
<121  > 
<180> 

<  1 41  > 
<209> 
<086> 

< 250  > 

<  099  > 

<004> 

<196> 

<040> 

<099> 

<  183> 

<  165> 

<034> 

<049> 

<072> 

<  172> 

<  126> 
<157> 
<017> 

<  1 17> 

<  179> 
<145> 
<108> 
<182> 
<241  > 

<  1 16> 
<094> 
<046> 
<129> 
<046> 

<217> 
<047> 
<230> 
<003> 
<252> 
<166> 
<035> 
<165> 
<038> 
<021  > 
<201  > 
<046> 
<230> 

<047i 

<207> 

<  146> 
<205> 

<  148> 
<007  > 
<085> 
<061  > 
<089> 
<235> 
<111> 
<018> 

<  131  > 


6530  M=5:  PV=0:  PRINT"  <RVOFF>"j  :  SYS  CL  -:220> 

6540  SYS  PR, 1 , 1 ,F1*; "KREUZSCHIENEN-VERTE IL 

ER"  < 162> 

6550  SYS  PR , 3, 1 , "E <4SPACE>LF0"  <065> 

6560  SYS  PR ,4,1, " G65432 10"  <210> 

6570  SYS  PR, 5, 1  ,F2*;  "005185655"  <040> 

65B0  A*^F2#+"R"*F 1 *♦ " CBSPACE "+F1 

*  <149> 

6590  PRINT  A*; "Fl"; F2*; “ CSSPACE > CURSORTAST 

EN"  <206> 

6600  PRINT  A*i"F2"  <214> 

6610  PRINT  A*; "F3"  <225> 

6620  PRINT  A* PI ";F2*;" CSSPACE >F1  ";F1*;" 

VERBINDUNG"  <009> 

6630  PRINT  AS;"P2"  <254> 

6640  PRINT  A*;  "P3";F2*s  •' CSSPACE 
KEINE  VERBINDUNG" 

PRINT  A*; "FILT" 

PRINT  A* ; "LAUT" 

PRINT  F2*;  "  fTT  fHTT" 

FDR  2 =0  TO  7t GOSUB  6730: NEXT 
Z=0:  S-7 :  POKE  55296«  40M6+Z) +8-S  ,F2 
RETURN 

REM - 


Fl*;  ' 


6650 

6660 

6670 

66B0 

6685 

6690 

6700 

6710 

6720 

6730 

6740 

6750 

6760 

6770 

6780 

6790 

6800 

6810 

6820 

6830 

6840 

6850 

6960 

6870 

6880 

6890 

6900 

6910 

6915 

6920 

6925 

6930 

6935 

6940 

6950 

6960 

6965 

6970 

6975 

6980 

6990 

7000 

7005 

7010 

7015 


REM  KSV-BYTE  Z  ANZEIGEN 

B=PEEK (M0+24+Z) : A=120 
SYS  PR.6+Z  ,  1  ,F1»;  "  CRVSON 
IF  R=0  THEN  RETURN 
FOR  S=7  TO  0  STEP  -1 

IF (B  AND  A) THEN  SYS  PR, 6+Z.B-S, " CRVSO 
N  )  1 "  ; 

A=A/2* NEXT  S 
PRINT  Fl*:: RETURN 

REM  CURSORBEWEGUNGEN 

REM - - - 


POKE  55296*40* (6+Z ) +8-S,F 1 :  REM  AUS 
Z=CZ-1>  AND  7: GOTO  69 10: REM  HOCH 
POKE  55296+40* (6+Z >+8-S, Fl 
Z=<Z+1>  AND  7 »GOTO  69 10: REM  RUNTER 
POKE  55296+40* (6+Z) +B-S, Fl 
S=(S+1)  AND  7 tGOTO  6910: REM  LINKS 
POKE  55296+40* (6+Z) +8-S, Fl 
S=(S-1)  AND  7 : GOTO  6910: REM  RECHTS 
POKE  55296+40* (6+Z )+8-S,F2:  REM  AN 
RETURN 

REM - 

REM  KSV  BIT  Z ,S  SETZEN 

REM - 

AD=MO+24+Z 

POKE  AD, PEEK (AD)  OR  2 TS 

POKE  1 024+40* (6+Z ) +B-S , 1 77:  RETURN 

REM - 

REM  KSV  BIT  Z,S  SETZEN 

REM - 


7030 

7035 

7040 

7043 

7050 

7055 

7060 

7065 

7070 

7073 

7080 

7085 

7070 

7095 

7100 

7110 

71  15 
7120 
7122 

7125 

7130 

7135 

7140 

714? 

7144 

7146 

7150 

7155 

7160 

7165 

7170 

7175 

7180 

7185 

7190 

7200 

7205 

7210 

7215 

7220 

7225 

7230 

7235 

7240 

7245 

7250 


7310 

7315 

7320 

7325 

7330 

7335 

7340 

7345 

7350 


AD=MO+24+Z 

POKE  AD, PEEK (AD)  AND  (255-2 TS) 

POKE  1024+40* (6+Z) +8-S, 176:  RETURN 

REM  UNTERMENUE  SOUNDS 

M-6 : PV-0 : S YS  CL : PR I NT " (HOME , RVOFF  > " ; F 

2* 

SYS  PR, 1 ,8, "AC1 ISPACEiBCl 1SPACEJC" 
PRINT  Fl*:  "  C3SP ACE > rf C_C c c c cc c c c c cc c,c C C 

CACC.c(^c.c^j£jL(lC.C.P.g.&" 

FOR  1=1  TO  8 

SYS  PR, 2+1 , 1 ,F2*;CHR* (48+1);  Fl*"  fi" 
SYS  PR , 2+ 1 , 38 , “  fi"  : NE  X  T 

SYS  PR ,  1 1 , 3 ,  “ 7pcccccscjis^csscßcccccc 

SYS  PR ,12,4, F2*;  " A-C  1-8" 

SYS  PR, 12, 13, Fl*; "SOUND  WAEHLEN" 

SYS  PR, 13, 1 ,F2*;  “  +  C2SPACE>A— C  1-8" 

SYS  PR ,13, 13, Fl*" SOUND  ABSPEICHERN“ 
SYS  PR, 14,1 ,F2*;  "N" 

SYS  PR, 14, l3,Fl*i "NAMEN  EINSEBEN  (RET 
URN)  " 

FOR  5=0  TO  2:  FOR  Z**0  TO  7 
:  SYS  PR,3+Z ,4+S*12, ; 

:  SYS  NA,SO+107* (B*S+Z>+97 
NEXTsNEXTsIF  NS<0  THEN  Z=0: S=0: RETURN 
Z=NS  AND  7:S=INT (NS/8) : GOTO  71B0 

REM - 

REM  SOUND  WAEHLEN  (A,B,C> 

X=A-65  : REM  SPALTE  0,1,2 

SYS  PR, I2,13,F2*J " (RVU+F7SQUND  WAEHLE 

N" 

BET  A*:IF  A*=""  THEN  7125 
Y=ASC (A*) -49: REM  ZEILE 
IF  Y<0  OR  Y>7  THEN  7142 
GOSLJB  7 150:  GOSUB  7400 

SYS  PR,  1?,  13,  Fl*;  "  CRVOFF  >SOLfND  WAEHLE 
N" 


<  145> 

<  191  > 
<209> 

<  244> 
<•029  > 

<  142> 
<202/ 
<«72> 
<223> 

<092  > 
<227> 
<073> 
<092 > 

<  152> 

<0SS> 

<  184  > 
<215> 

<  172> 
<008 > 

<  192> 
<228> 
<201  > 
<070> 

<  154> 

<090  > 
<065  > 
<110> 

<  1 58> 
<219> 
<172> 
<037> 
<060> 
<047> 
<025> 
<250> 
<087> 
<077> 
<100> 
<087> 
<065> 

<  185> 
<126> 

<  1 0 1  > 
<235> 
<  1 1 1  > 


REM  ALTES  NAMENFELD  NORMAL 
NS=8*S+Z 

:  SYS  PR,3+Z ,4*S+12,F1*; " (RVOFFi"; 

:  SYS  NA , S0+ 107*NS+97 

REM  NEUES  NAMENFELD  HERVORHEBEN 

5=X:Z=Y:NS=B«S+Z 

:  SYS  PR , 3+Z , 4+S* 1 2 , F2* ; " CRVOFF  > " j 

:  SYS  NA,SO+107*NS+97 
RETURN 

REM - 

REM  SOUND  ABSPEICHERN 

SYS  PR, 1 3, 1 3, F2*;" CRVOFF) SOUND  ABSPEI 

CHERN" 

GET  A*:IF  A*-""  THEN  7215 

X=ASC(A*)-65:REM  SPALTE 

IF  X<0  OR  X>2  THEN  7250 

GET  A*:IF  A*="“  THEN  7230 

Y =ASC  <  AS ) -49 s REM  ZEILE 

IF  Y< 0  OR  Y>7  THEN  7250 

GOSUB  7 150: GOSUB  7450: GOTO  7260 

SYS  PR, 13, 13,F1*{ " CRVOFF) SOUND  ABSPEI 

CHERN" 

RETURN 

SYS  PR, 13, 13,Fl*; " CRVOFF >SOUND  ABSPEI 
CHERN" 

REM - 

REM  NAMEN  EINGEBEN  (Z,S,NS) 

SYS  PR, 14, 13,F2*s "NAMEN  EINGEBEN  (RET 
IJRN)  •* 

X-12+S+4: Y-Z+3: AD=1024+40*Y+X 
GA-SO*  107NNS+97:  I«-0 
POKE  AD+ I , PEEK ( AD+ I )  OR  128 
GET  A*:IF  A*-" *  THEN  7330 
A=ASC (AS) : IF  A<32  OR  A>95  THEN  7370 
REM  ZEICHEN  AUSGEBEN 
SYS  PR, Y ,X+I ,F2*j  A*; s  POKE  SA+I,A 
1=1  +  1 


<  131  > 
C026> 
<218> 
C  177> 

C  141> 
<098> 

<220> 
<201  > 
<204> 
<124> 

<066> 

<033> 

<  1 20  > 
<150> 
<1 15> 
<200> 
<227  > 
CI  13> 
<201  > 

<178> 

<  140> 
<214  > 
<039> 
<235> 

<  197> 

<  1  45  > 
<007> 
<100> 

<  1  56  > 

<1  n> 

<246> 
<239> 
<231  > 

<  133> 
<011> 

<  192> 
<B30> 

<  125> 

<044> 

<231  > 
<126> 
<123> 
<243> 
<064> 

<145> 

<236> 


<093> 
<  1  62  > 
<215> 

<047> 

<  1  94  > 

<  1 70> 
<202> 
<088> 
<216> 

<  1 67  > 
<113> 
<241  > 
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Speicherlandschaft 


C  64/VC  20 


7555 

IF  I  >9  THEN  I=9:GOTO  7323 

<004  > 

7765 

POKE  782, 134: REM  Y-KEG  =  *9A 

<  121  > 

0583 

:  SYS  Dl),  MO* /-SN  *2, 704b  i  HEM  PW 

<.0B1  > 

736C 

IF  I < 0  THEN  1-0 

<  101  > 

7770 

SYS  65496  : REM  KERNAL  SAVE 

<217> 

8590 

:  POKE  MO+7«SN*4,0  : REM  PORTA 

<21 1  > 

7363 

GOTO  7325 

<059> 

7775 

CLOSE  1 

<078> 

8595 

NEXT  SN 

<215> 

7>7e 

IF  6=29  THEN  POKE  AD+ 1 , PEEK  ( AD+ l )  AND 

77B0 

OPEN  1,8,15: INPUTH1.A, AS, X,Y:CLOSE  1 

<073> 

3600 

POLE  SI+23,0: RF-0  : REM  RES/FILT 

<028  > 

127:60TG  7350 

<023> 

7785 

IF  A=0  THEN  7795 

<  1 84  > 

8605 

SYS  DO, MO+21 , 0  : REM  FILTERFR. 

<!17> 

7375 

IF  A=157  THEN  POKE  AD+! ,PEEK (AD+I)  AN 

7  790 

SYS  PR ,12,4,A;A*j  X;Y: GOTO  7725 

<135> 

8610 

POKE  MO+23,15  :  REM  MDD/LAUT 

<165> 

D  127: 1=I-1:GOTO  7355 

<173> 

7795 

SYS  PR ,  12,4,“  I30SPACE)  '* 

<  048  > 

8615 

FOR  1=24  TO  72  : REM  1  SV.LFO.EG  AUS 

<  034  > 

7380 

IF  AO!3  THFN  7330 

<240> 

7800 

S/S  PR, 7, 7, Fl*;  "SOUNDS  ABSPEICHERN“ 

<226> 

8620 

:  PO»  E  M0+  I  ,  0:  NE  XT 

<  069  > 

7385 

POKE  AD- 1, PEEK (AD+I 1  AND  127 

<004  > 

7805 

SYS  50185:RETURN:  REM  MODULATOR  AN 

<  0 1 9  > 

8625 

EG=0  : REM  EG  ABKOPPELN 

■  049 > 

7390 

SYS  PR. 14, 13, F 1»; -NAMEN  EINGEBEN  (RET 
URN>  " 

<1267 

8000 

8010 

REH==~= ==*==========— == 

REM  VORBESETZUNG,  INITIALISIERUNG 

<0B1> 

<  066  > 

8630 

8635 

SU-0  : REM  SUSTAIN  AUS 

REM - 

<053> 

<222> 

7395 

RETURN 

<  14 1  > 

8020 

<  101  > 

8640 

REM  SOUNDS  VORBESETZEN 

<163> 

7  «ae 

REM - 

<  006  > 

8030 

PR I NT “ <CLR , 1 2 DOWN . 7SPACEJ"  ; 

<244  > 

86*5 

FOR  NS-0  TO  23 

<243> 

7402 

REM  PARAMETERSATZ  NS  HOLEN 

<  143> 

8035 

PRINT "BITTE  30  SEKUNDEN  WARTEN" 

<104> 

8650 

:  GOSUB  7450 

<  1 30  > 

7404 

SA— SO*NS" 1 07 : SYS  GE, SA 

<  163> 

0040 

REM - - - — - 

<  137  > 

9655 

:  AD=SOM07»NS*-97 

<  1  72> 

7406 

FOR  1=0  TO  2 

<  1  40  > 

8043 

REM  MS-PROGRAMME  IN  KASSETTENPUF. 

<244> 

B6ö0 

:  FOR  I=AD  TO  AD+9: POKE  1,46: NEXT 

<  1 68  > 

7408 

j  ÖD=SA*-7*I 

<2317 

8030 

FOR  1=0  TO  22  : REM  KERNAL-GOSUB 

<  1 20  > 

8665 

NEXT  NS: NS=0 

<  2 1 8  > 

7410 

t  BF  ( I )  -USR  ( AD-t-73) 

<  109> 

B05S 

POKE  828+ 1 , PEEK ( 43139+1 ) : NEXT 

<  1 00  > 

8700 

REM - 

<031'. 

7412 

:  X=BF (11/17. 0327/440 

<2027 

8060 

FOR  1=0  TO  129:  READ  X:POKE  851+1, X:NE 

8870 

REM  FARBEN,  BILD,  MODULATOR 

<047  > 

7414 

:  Y=L0G(X)/LQG(2>  : REM  X=ZtY 

<239> 

XT 

<066  > 

8800 

POKE  53280, 14: POKE  53281,6 

<050> 

7416 

•  Y=Y+4>9/ 12+49/ 1200 

<0107 

8065 

POKE  785, 169: POKE  7B6,3:REM  USR 

<063> 

3890 

PRINT  Fl*; " (RVOFF  >" j  : POKE  650,128 

<143> 

74  1B 

:  0(1) kINT(Y) : Y»(Y-0(X) > »12 

<220> 

8070 

<  167> 

Ö900 

GÜSUB  4.  00  t  KLM  BILD  ZEILEN  15-23 

<  220  > 

7420 

:  T<I>«INT(Y> 

<081  > 

(3072 

REM  MS-PROGRAMME  AB  *C423 

<048> 

3910 

SYS  MO+10~JxREM  MODULATOR  AKTIV. 

<200> 

7422 

i  OF<I)«INT( (Y-T<1> >«100-48.51 

<033> 

8074 

FOR  1-50211  TO  50291 

<195? 

3920 

A=2: RETURN 

<231  > 

7424 

:  S( I) = (PEEK ( AD+75) =1) 

<2167 

8076 

READ  X : POKE  I,X:NEXT 

<  228 > 

9000 

REM====— ======*«======— ========== 

<061  > 

7426 

:  A»=CHR* («9+1 > :GOSUB  3570 

<  126> 

B078 

REM - 

<175> 

9010 

REM  DATAS 

<081  > 

7428 

J  C(I>-PEEk(AD-*-77>  AND  254 

<2287 

8080 

REM  NAMEN  DER  TOENE 

<003  + 

9020 

REM==— ======= ========== ====—^= 

<081  > 

7430 

:  C 1 ( I) =C ( I )  OR  1 

<21 9> 

S082 

FOR  1=0  TO  1 1 : READ  TNT  < I ) : NEXT 

-  064  > 

9030 

REM  MASCH  I  NENF’RCl GRAMME 

<056> 

7432 

:  ADtI>=PEEK(AD«-78> 

<223> 

8100 

REM - 

<197> 

9060 

DATA  032,009,003,076, 174, 167,032 

<0/1  > 

7434 

:  SR  ( t )  =PEEK ( AD+79) 

<004  7 

Bl  10 

REM  SPRUNGVEKTOREN 

<  1 69  > 

9070 

DATA  253,174,032,138,  173,032,247 

<080> 

7436 

NEXT  I 

<244  > 

8120 

READ  Af:L=LEN(A*> 

<1  16> 

9000 

DATA  183,076,163.160,032,253,174 

<099> 

7430 

RF=PEEK  (SA-»94) 

<051  > 

8130 

ON  L  GOTO  8150,8220,8280,8310 

<003> 

9090 

DATA  032 , 1 58 , 183 , 1 38, 072 , 032 , 253 

<  099  > 

7440 

EG“ (PEEK (SA+95) » 1 > : G05UB  3740 

<243> 

8150 

REM  L=  1  ASCII -ZEICHEN 

<*?S8> 

9100 

DATA  174,032,158,187, 138,168,10« 

<  1 1 7  > 

7442 

SU= (PEEK (SA+96 ) *1 ) : G05U8  3840 

<019> 

8160 

A-ASC  <A*> 

<1 10> 

9110 

DATA  170,024,032,240,255,032,253 

<  1 04  > 

744  4 

RETURN 

<1917 

8170 

IF  M>=0  THEN  VX (M,A)=ZN: GOTO  8120 

<  1 37  > 

9 1  PB 

DATA  174,076,160,170,032,253,174 

<129> 

74C0 

REM - 

<037> 

0 1  OB 

TOR  1=0  TO  7iW.il  ,A>=ZN:NEXT 

:  1  OB  > 

917.0 

DATA  032,130,173,032,247.183,165 

<  1 42  > 

7452 

REM  PARAMETERSATZ  NS  A8SPEICHERN 

<1  12> 

8190 

GOTO  8120 

<113> 

9140 

DATA  020, 133, 158, 16S. 021. 133, 159 

<  1 42> 

74*J4 

SA=SO+NS«107:SYS  PU, SA 

<239> 

8200 

IF  LEFT* (A*. 1 ) <  >"M"  THEN  8120 

<213> 

9150 

DATA  032,253, 17«. 03Z, 138.173,032 

<  1S2> 

7456 

FOR  SN-0  TO  2 

<2477 

8220 

REM  L=2  MENUE- INDIKATOR 

<178> 

9160 

DATA  247,183,160,000,120,165,020 

<  151  > 

7438 

i  AD=SA+7*SN 

<  1  1 4  > 

8230 

IF  LEFT*  <A»,  IIO'M  "  THEN  8120 

<243> 

9170 

DATA  145, 15B, 200, 165,021 , 145, 158 

<  1  77> 

7460 

:  SYS  D0,AD+73,BF(SN> 

<0237 

8240 

A5-R IGHT  * ( A* , 1 ) 

<03S> 

9180 

DATA  088,096,032,247, 183,160,000 

<  1 90  > 

7462 

:  POKE  AD+75, -S(SN) 

<2037 

8250 

IF  A*="A"  THEN  M=-l  :GOTO  8120 

<1 13> 

9190 

DATA  120,177,020,133,099,200,177 

<  194> 

7464 

:  POKE  AD+77,C<SN> 

<070  > 

G260 

M-VAL  < A* )  i GOTO  8120 

CQ76> 

7200 

DATA  020,000,133,090,162,144,066 

<213> 

7466 

:  POKE  AD+78, AD  ISN) 

<089> 

8280 

REM  L=3  ASCII -WERT 

<  123> 

9210 

DATA  076,073, 1B8, 169,032, 162,000 

<222> 

746B 

:  POKE  AD* 79, SR (SN) 

<  1 24> 

8290 

AcVAL  tA*)  : GOTO  8170 

<099  > 

9220 

DATA  157,000,004,157,000,005,202 

<202> 

7470 

NEXT  SN 

<  1  10> 

8310 

REM  L=4  ZEILENNUMMER  ODER  ENDE 

<163> 

9230 

DATA  200,247,162,087,157,000,006 

<239> 

7472 

POKE  SA+94.RF 

<  083  > 

8320 

IF  A*="ENDE"  THEN  8340 

<248> 

9240 

DATA  202,016,250,096 

<  164> 

7474 

POKE  SA+95, -EG 

<2457 

8330 

ZN=VAL(A»)  : GOTO  8120 

<237  > 

9250 

REM - 

<072> 

7476 

POKE  SA+96, -SU 

<020> 

8340 

REM - 

<  1 50  > 

9260 

REM  MASCHINENPROGRAMME  AB  *C423 

<  162> 

7470 

RF I URN 

<223> 

0350 

REM  TONNUMMERN 

<064  ' 

9270 

DATA  032 , 253 ,174, 032 ,130,1 73 , 032 

<  0  1  7  > 

7fj00 

R£M---=-n—  unat»  uun-mmiBu 

<0917 

8360 

A*="O2W3ERST6Y7UI9O0P@-«ft !HOME>;=“ 

<  1 20  > 

9280 

DATA  247,183,165,020,133,158,165 

<039> 

7505 

REM  UNTERMENUE  DISKETTE 

<098  > 

0370 

FOR  1-0  TO  24 

<104> 

9290 

DATA  021,133,159.096.032,035.196 

<  046> 

7510 

<101> 

8380 

:  A=ASC(MID*(A*, 1+1,1)) 

<045> 

93H0 

DATA  160,000, 177, 158, 032, 210, 25S 

<043> 

7513 

M=7 : PV-0: SYS  CL: PRINT" <H0ME>";F1* 

<21 5> 

8390 

i  T  NX  ( A  >  —  I 

<  084  > 

9310 

DATA  200 ,192,010, 20B , 246 , 096 , 032 

<054> 

7320 

PRINT“  DISK” 

<1337 

8400 

:  FOR  J=0  TO  7: VX ( J , A> =2000: NEXT 

<127> 

9320 

DATA  035, 196, 160. 00H, 177,158,153 

<076> 

7525 

SYS  PR, 5, 4, F2»; "Fl" 

<06S> 

8410 

NEXT  I 

<16S> 

9330 

DATA  000,192,200,192,073,208,246 

<075> 

7330 

SYS  PR,5,7,FI*; "SOUNDS  LADEN" 

<017> 

8450 

<037> 

9-.40 

DATA  177, 15B. 153. 183,21 1 .200, 192 

<  095  > 

7535 

SYS  PR , 7 , 4 , F2*3 "F3" 

<0797 

84SS 

REM  FREQUENZEN  DER  TONLEI 'ER 

<075> 

9350 

DATA  094,200,246, 177, 158, 141 ,023 

<  1 12> 

7340 

SYS  PR, 7, 7, Fl»; "SOUNDS  ABSPEICHERN" 

<2217 

8460 

FOR  1-0  TO  24 : TH ( I ) ®2T ( I / 12) : NEXT 

<07S> 

9360 

DATA  212,096,032,035, 196,160,000 

<  1 03  > 

7545 

RETURN 

<036> 

8465 

REM - 

<  052 > 

9370 

DATA  185,000,192,145,158,200,192 

<  121  > 

7600 

REM - 

<2077 

8470 

REM  KONSTANTEN 

<203> 

9380 

DATA  073,200,246,096 

<062? 

760b 

REM  SOUNDS  LADEN 

<  1  61  > 

8472 

GS=828 :GT«057: PR-869 : D0=897 :  CL=959 

<208> 

94«0 

REM - 

<222> 

7610 

SYS  RR, 5, 7, F2*; "SOUNDS  LADEN" 

<098> 

8474 

NA -50229: GE=5024Si PU-50276 

<  139> 

9410 

REM  NAMEN  DER  TOENE 

<058> 

7613 

7620 

SYS  PR, 10. 4. Fl»; "DATEINAME  " ; 

DN*  =  " SUUNDS  1 1  4SPACE  >  ** 

<018> 

<105> 

8480 

8482 

S1 -54272: M0-49152: FA=55296 

S0»36864 

<  126> 
<1&2> 

9420 

9500 

DATA  C,C«,D,DK,E,F,FO  ,8 ,8*  ,  A .  All  ,H 
REM - 

<061  > 

<067> 

7623 

SYS  PR, 10, 16, DN* 

<  0 4 0  > 

8484 

F1*=CHR*( 15«) :F1=14 

<01 2> 

9510 

REM  DATAS  FUHR  SPRUNGVERTEILER 

<0 1 0> 

7630 

SYS  PR, 10, 14,;  :  INPUT  DN* 

<0377 

8490 

F2*-CHR*<3>  : F2- 1 

<123> 

9520 

DATA  MA.4O00, X , 3500. V, 3600, 032 

<006.-- 

7633 

OPEN  8,8,9,  DN*-*-”  ,  P ,  R" :  CLOSE  B 

<1077 

8495 

na 

<  1 66  > 

9530 

DATA  MA, 3700, 160,3800 ,S 

<  159> 

7640 

OPEN  1 ,8,15: INPUTM 1 , A, AE , X , Y: CLOSE  1 

<18B> 

8500 

<189  > 

9540 

DATA  MA, 2550, 133,2560, 134 

<242> 

7645 

SYS  PR, 12,4," T29SPACE) “ 

<  153> 

8505 

KV«12)="SAWDHN':KF«12)="g.ngH" 

<226 > 

9550 

DATA  MA , 2570 , 1 35 , 2580 . 1 36,4500 ,214 

<188> 

7650 

IF  A-0  THEN  7660 

<0397 

8510 

KV*  (3)  -  "SQUARE  "  x  KF*  (3)  -"OLOl" 

<01 4> 

9555 

DATA  MA, 5500, L. 6000, H.6S00.K 

<203> 

7633 

SYS  PR, 12,3, A;A*; X;Y: GOTO  7625 

<2537 

8515 

MD* (0) = "RESET"  :  MD* ( 1 ) ="RESET" 

<253> 

9560 

DATA  MA, 5000, F, 7000, 21 1 ,7500, D 

'  012> 

7660 

A=0: LOAD  DN* ,8,1 

<1127 

8520 

MD* (2) “"HOLD  "  :  MD* 13) =" RUN  C2SPACE)" 

<  028  > 

9565 

DATA  Ml ,4654, 145,4660.017 

•+  008  > 

7663 

SYS  PR, 3, 7, Fl*; "SOUNDS  LADEN” 

<1527 

8525 

BL*(0)="":BL*<1>-"  "  :  BL*  ( 2)  =  " C2SPACEJ 

9570 

DATA  Ml ,4666, 029, 46B0, 157 

<024> 

7670 

NS=- 1 : A=21 1 :  GOTO  1SS0 

<  145? 

" 

<096> 

9530 

DATA  M2, 5160, 157,5145,029 

<022> 

7700 

REM - 

<0S2> 

8530 

BL * ( 3 1 = “ <3SP ACE > " : BL * ( 4 ) = " ! «SPACE > - 

< 006  > 

9600 

DATA  M3, 5675, 145,5690,017 

<053> 

7  705 

r<CM  GOUND3  AD5PCICIICRN 

<  190> 

8S3S 

BL*  <5  > -"  C5BPACE5 " i BL*  <6) (6SPACE  > " 

<0S5> 

9610 

DATA  M3.5720, 157,5705 ,029 

<057> 

7710 

SYS  PR, 7, 7, F2»; "SOUNDS  ABSPEICHERN" 

<1377 

8540 

REM - 

<127> 

9620 

DATA  M4, 6410, 157,6440,029 

<062? 

7715 

SYS  PR, 10. 4, Fl*; “DATEINAME  ” ; 

<1  19> 

8545 

REM  SOUNDPARAMETER  VORBESETZUNGEN 

<  124  > 

9630 

DATA  M5.6830, 145,6850,017 

<078' 

7720 

DN*  =  “ SOUNDS !1 4SP ACE  >  H 

<  206  > 

8550 

FOR  SN=0  TO  2 

<097  > 

9640 

DATA  MS, 6870, 157, 6890, 029 

<  1 02  > 

7725 

SYS  PR, 10, 16, DN* 

<  1 4 1  > 

8555 

:  POKE  SI+7+SN+5, 10  :ADISN)=10 

<  087  > 

9650 

DATA  85,6935,133,134,6975,135,136 

<248> 

7730 

SYS  PR, 10, 14, ;  :  1NPUT  DN* 

<1387 

8560 

:  POKE  SI+7+SN+6, 138: SR (SN) =138 

<243> 

9700 

DATA  M6, 7110, A,B,C, 7200,«-, 7300, N 

<06<>> 

7735 

SYS  50 198: REM  MODULATOR  AUS 

<  099  > 

8565 

:  0 ( SN) -3+SN: OF (SN) =0: T (SN) =0 

<070  > 

9750 

DATA  M7, 7600, 133,7700, 134 

<  1B9> 

7740 

7745 

7750 

REM  BEREICH  *B000-*0A00  AUF  DISK 

OPEN  1,8,1,"©:  “♦DN* 

POKE  232,  VI:  POKE  233,144:REM  *9000 

<000> 

<0587 

<2147 

8570 

8572 

:  BF=440*2T(OISN) -4+ ( T ( SN  > -9 ) / 1 2+OF ( S 
N) /I 200) 

:  BF (SN) -BF« 17.  0327 

<  122> 

<  1“3> 

9900 

DATA  ENDE 

<113> 

7755 

7760 

POKE  780,232:  REM  AKKU 

POKE  7B 1,9  :  REM  X-REB  -  *08 

<089> 

<254> 

8575 

8500 

:  C (SN ) »64  : CI <SN>  =65 

:  S<SN>  +•  <SN-0) 

<232> 

<170> 

Listing  »Sound-Editor«  (Schluß) 

Memory  Map  mit  # 
Wnndervorscnlägen  (Teil  8) 

Neben  der  dynamischen  Tastaturabfrage  werden  die  Adressen 
153  bis  158  behandelt.  Deren  Aufgabe  ist  die  Ausgabe  von  Fehlermeldungen. 


Die  dynamische  Tastaturab¬ 
frage  ist  das  Kernthema  mit  dem 
wir  uns  heute  beschäftigen  wol¬ 
len.  Zuvor  aber  noch  einige 
Speicherstellen,  die  wie  beim 
letzten  Mal  das  Betriebssystem 
als  Zeiger  für  Ein/Ausgabeope- 
rationen  benutzt. 

Adresse  153  ($99) 

Nummer  des  Eingabe-Gerätes 

Das  Betriebssystem  verwen¬ 
det  diese  Speicherzelle,  um  fest¬ 


zuhalten,  welches  Gerät  zur  Ein¬ 
gabe  verwendet  werden  soll. 

Die  Nummern  sind  wie  folgt 
festgelegt: 

0  =  Tastatur 

1  =  Datasette 

2  =  RS232  (User-)Port 

3  =  Bildschirm 

4,  5  =  Drucker 

8-11  =  Floppy-Laufwerke 

Nach  dem  Einschalten  oder 
nach  RESET  des  Computers 
steht  in  153  eine  0  (Tastatur). 
Nach  jedem  Einsatz  eines  ande¬ 


ren  Gerätes  wird  diese  Spei¬ 
cherzelle  wieder  auf  0  gesetzt, 
so  daß  wir  immer  die  Tastatur 
zur  Verfügung  haben. 

Für  Maschinenprogrammie¬ 
rer  ist  diese  Adresse  sicherlich 
wertvoll.  Die  Routine,  welche  die 
Eingabegeräte  festlegt,  sobald 
der  Befehl  INPUT#  bezie¬ 
hungsweise  GET#  ausgeführt 
wird,  heißt  CHKIN  und  beginnt 
beim  C  64  ab  Adresse  61966 
($F20E),  beim  VC  20  ab  62151 
(SF2C7). 


Für  Basic-Programmierer  ha¬ 
be  ich  in  der  Literatur  nur  eine 
Anwendung  gefunden,  und  die 
wurde  bereits  bei  der  Bespre¬ 
chung  der  Speicherzelle  19  (Teil 
3  des  Kurses  in  Ausgabe  1/85, 
Seite  127)  angekündigt. 

Es  ist  dies  eine  MERGE-Rou- 
tine.  Leider  funktioniert  dieses 
Verfahren  nicht  bei  dem  1541 
Floppy-Laufwerk.  Erfunden 
wurde  die  Routine  von  Brad 
Templeton  und  ist  von  Jim  Butter- 
field  unter  dem  Namen  »Magic 
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C  64/VC  20 


Speitherlandschaft 


Merge«  für  den  VC  20/C  64 
adaptiert  worden.  Ich  gebe  zu, 
in  der  Zwischenzeit  sind  noch 
andere,  vielleicht  auch  kürzere 
MERGE-Routinen  veröffentlicht 
worden.  Aber  diese  hier  ver¬ 
wendet  gleich  drei  interessante 
Ingredienzen,  nämlich  die  Spei¬ 
cherzellen  19  und  153,  außer¬ 
dem  die  sogenannte  »Dynami¬ 
sche  Tastenabfrage«.  Wer  die 
letztere  nicht  kennt,  sollte  sich 
zum  Verständnis  der.  Textein¬ 
schub  1  gleichen  Namens  anse- 
hen. 

Ein  MERGE  (deutsch:  zusam¬ 
menführen,  verschmelzen)  be¬ 
steht  dann,  ein  auf  Band  gespei¬ 
chertes  Programm  zu  einem  im 
Computer  stehenden  anderen 
Programm  so  dazuzuladen,  daß 
dieses  nicht  überschrieben, 
sondern  ergänzt  ward.  Wichtig 
ist  dabei,  daß  das  Programm 
vom  Band  höhere  Zeilennum- 
mern  hat  als  das  Programm  im 
Computer.  Außerdem  muß  das 
Programm  auf  dem  Band  als  Da¬ 
tei  gespeichert  sein.  Das  wird  so 
erreicht: 

1.  Programm  eintippen 

2.  Direkt  eingeben: 

OPEN  l,l,l,”Name”:CMDl:LIST 

3.  Erst  wenn  READY  kommt, 
direkt  eingeben 

PRINT  #l:CLOSEl 

Damit  ist  das  Programm  auf 
dem  Band  gespeichert.  Nun 
kommt  der  eigentliche  MERGE- 
Vorgang. 

4.  Es  steht  ein  Programm  im 
Computer 

5.  Band  mit  dem  Programm 
»Name«  einlegen 

6.  Direkt  eingeben: 

POKE  19,l:OPEN  1 

7.  Sobald  READY  erscheint,  Bild¬ 
schirm  löschen  (SHIFT-CLR). 

8.  Dreimal  Cursor-Down 

9.  Direkt  eingeben: 

PRINT  CHR$(19):POKE  198,1: 
POKE  631,13:POKE  153,1 

10.  Das  Band  beendet  den  Lade¬ 
vorgang  mit  einer  Fehlermel¬ 
dung,  die  wir  ignorieren. 

11.  Nach  CLOSE  1  sind  beide 
Programme  zusammengefügt. 

Wie  gesagt,  Schritt  6  verwen¬ 
det  Zelle  19  (bitte  dort  nachle- 
sen),  Schritte  8  und  9  sind  die 
»Dynamische  Tastenabfrage«, 
und  Schritt  9  verwendet  zusätz¬ 
lich  die  hier  zur  Diskussion  ste¬ 
hende  Speicherzelle  153,  um  die 
Datasette  als  Eingabegerät  zu 
definieren. 

Adresse  154  ($9A) 

Nummer  des  Ausgabe-Gerätes 

Diese  Speicherzelle  ent¬ 
spricht  der  Zelle  153,  nur  steht 
hier  die  Nummer  des  Gerätes, 
über  das  die  Ausgabe  läuft. 

Nach  dem  Einschalten  und 
nach  Ausgabeoperationen  wird 
der  Wert  immer  auf  3  gesetzt. 
Das  ist  entsprechend  der  oben 
genannten  Zuordnung  der  Bild¬ 
schirm. 

Für  Maschinenprogrammie¬ 
rer  sei  erwähnt,  daß  Basic  bei 
den  Befehlen  PRINT#  oder 


CMD  die  Routine  CHKOUT  ein¬ 
setzt,  welche  die  Adresse  154 
belegt.  Sie  steht  im  C  64  ab 
Adresse  62032  ($F250),  im  VC  20 
ab  62217  ($F309> 

Adresse  155  ($9B) 

Fehlerkontrolle  bei  Bandoperationen 

Die  Commodore-Datasette  ist 
deswegen  so  zuverlässig,  weil 
sie  mehrere  Methoden  zur  Feh¬ 
lererkennung  beziehungsweise 
Korrektur  von  Lese-  und 
Schreibfehlern  verwendet. 

Eine  der  Methoden  ist  die  so¬ 
genannte  Parity-Prüfung.  Sie  ist 
nichts  anderes  als  eine  Quer¬ 
summenbildung  der  einzelnen 
Stellen  jedes  Bytes,  deren  Resul¬ 
tat  überprüft  wird. 

Die  Speicherzelle  155  wird  bei 
dieser  Parity-Prüfung  einge¬ 
setzt. 

Adresse  156  ($9C) 

Flagge  für  korrektes  Byte  vom  Band 

In  dieser  Speicherzelle  wird 
zwischengespeichert,  ob  das 
vom  Band  gelesene  Byte  die 
Prüfungen  bestanden  hat,  also 
richtig  ist  oder  nicht. 

Adresse  157  ($9D) 

Flagge  für  Meldungen 

Man  muß  zwischen  zwei  Arten 
von  Meldungen  unterscheiden: 

—  Meldungen  des  Betriebssy¬ 
stems 

—  Meldungen  des  Basic-Über- 
setzers 

Die  Meldungen  des  Betriebs¬ 
systems  kennen  wir  als  Anga¬ 
ben  zum  Ablauf,  wie  SEAR- 
CHING  FOR,  FOUND,  PRESS 
PLAY  ON  TAPE  und  so  weiter. 
Normalerweise  nicht  bekannt  ist 
die  Meldung  I/C  ERROR  # ,  wo¬ 
bei  nach  dem  Zeichen  #  Zahlen 
von  0  bis  29  stehen  können.  Die¬ 
se  Zahlen  beziehen  sich  auf  Mel¬ 
dungen  des  Übersetzers  (Inter¬ 
preter),  die  ausschließlich  Feh¬ 
lermeldungen  sind.  Das  mag 
verwirrend  klingen,  klärt  sich 
aber  sofort.  Die  Flagge  in  157 
kann  vier  Werte  annehmen,  0, 
64,  128  und  192. 

1.  Der  Wert  0  unterdrückt  alle 
Meldungen  des  Betriebssy¬ 
stems.  Dieser  Modus  tritt  nach 
RUN  beim  Ablauf  eines  Pro¬ 
gramms  ein. 

2.  Der  Wert  64  läßt  nur  Fehler¬ 
meldungen  des  Betriebssy¬ 
stems  zu.  Dieser  Modus  ist  nor¬ 
malerweise  nicht  vorgesehen, 
kann  aber  künstlich  erzeugt 
werden. 

3.  Der  Wert  128  unterdrückt  die 
Fehlermeldung  des  Betriebssy¬ 
stems.  Dieser  Modus  entspricht 
dem  Normalfall. 

4.  Der  Wert  192  läßt  alle  Meldun¬ 
gen  zu.  Auch  dieser  Modus  ist 
nur  künstlich  herzustellen. 

Das  folgende  Beispiel  macht 
das  deutlich.  Geben  Sie  direkt 
ein: 

POKE  157,0:LOAD  'T', 9 


Wir  versuchen,  vom  Gerät  mit 
der  Nummer  9,  das  ist  eine  zwei¬ 
te  Floppy,  die  Directory  zu  la¬ 
den.  Wir  erhalten  entsprechend 
Punkt  1  nur  die  Meldung  des 
Übersetzers  »?  DEVICE  NOT 
PRESENT«.  Verändern  wir  den 
POKE-Befehl  für  Punkt  2: 

POKE  157,64:LOAD"$",9 
Wir  erhalten  jetzt  »I/O  ERROR 
#5  ?  DEVICE  NOT  PRESENT«. 
POKE  157,128:LOAD"$’,9 
ergibt  die  Meldung  »SEAR- 
CHING  FOR  $ 

?  DEVICE  NOT  PRESENT«. 

Schließlich  nehmen  wir  noch 
den  letzten  Fall: 

POKE  157,192:LOAD"$',9 
Jetzt  erhalten  wir  alles: 
»SEARCHING  FOR  S 
I/O  ERROR  #5 
?  DEVICE  NOT  PRESENT« 

Da  die  Fehlermeldung  des  Be¬ 
triebssystems  und  die  zugehöri¬ 
gen  Nummern  in  keinem  Hand¬ 
buch  erwähnt  sind,  habe  ich  sie 
interessehalber  in  der  folgen¬ 
den  Tabelle  zusammengefaßt. 

#  MELDUNG  (ERROR) 


1  TOO  MANY  FILES 

2  FILE  OPEN 


3  FILE  NOT  OPEN 

4  FILE  NOT  FOUND 

5  DEVICE  NOT  PRESENT 

6  NOT  INPUT  FILE 

7  NOT  OUTPUT  FILE 

8  MISSINC  FILE  NAME 

9  ILLEGAL  DEVICE  NUM¬ 
BER 

10  NEXT  WITHOUT  FOR 

11  SYNTAX 

12  RETURN  WITHOUT  GO- 
SUB 

13  OUT  OF  DATA 

14  ILLEGAL  QUANTITY 

15  OVERFLOW 

16  OUT  OF  MEMORY 

17  UNDEF'D  STATEMENT 

18  BAD  SUBSCRIPT 

19  REDIM’D  ÄRRÄY 

20  DIVISION  BY  ZERO 

21  ILLEGAL  DIRECT 

22  TYPE  MISMATCH 

23  STRING  TOO  LONG 

24  FILE  DATA 

25  FORMULA  TOO  COM- 
PLEX 

26  CAN'T  CONTINUE 

27  UNDEF’D  FUNCTION 

28  VERIFY 

29  LOAD 


Das  nächste  Mal  fahren  war  ab 
Speicherzelle  158  fort. 

(Dr.  Helmuth  Hauck/ah) 


Texteinschub  1.  Dynamische  Tastenabfrage 

Jedefci,  ’  wenn  Sie  eine  Taste  drücken,  wird  der  ASCII-Codewert  des 
Zeichens  oder  der  Funktion  dieser  Taste  ermittelt  und  im  »Tastaturpuffer« 
gespeichert.  Dieser  Pufferspeicher  liegt  in  den  Speicherzellen  631  bis  640. 

Die  eigentliche  Abfrage  und  Umcodierung  eines  Tastendrucks  habe  ich 
im  Kurs  »Alle  Tasten-,  Zeichen-  und  Steuercodes«  in  den  Ausgaben  4/84  bis 
7/84  beschrieben.  Die  ASCII-Code tabeile  finden  Sie  daauch.  Sie  ist  natür¬ 
lich  in  allen  Handbüchern  enthalten,  leider  aber  nicht  immer  ganz  vollstän¬ 
dig.  Zuerst  will  ich  Ihnen  die  Arbeitsweise  des  Tastaturpuffers  zeigen. 

Der  Computer  holt  sich  den  ASCII-Codewert  aus  dem  Tastaturpuffer 
und  wenn  gerade  kein  Programm  läuft,  druckt  er  das  Zeichen  auf  den  Bild¬ 
schirm  oder  führt  die  Funktion  der  Taste  aus.  Das  ist  der  oft  zitierte  »Direkt- 
Modus«. 

Wenn  aber  ein  Programm  läuft,  dann  bleiben  die  Codezahlen  im  Puffer 
so  lange  stehen,  bis  der  Computer  fertig  ist.  Dann  erst  werden  sie  heraus¬ 
geholt  und  verarbeitet.  Das  will  ich  Ihnen  beweisen. 

Tippen  Sie  im  Direkt-Modus  ein: 

FOR  K=  1  TO  15000:NEXT  K  (RETURN) 

Während  diese  an  sich  sinnlose  Zeitschleife  15000ir.al  im  Kreise  rum¬ 
rennt,  haben  Sie  genügend  Zeit,  mehrere  Tasten  zu  drücken,  zum  Beispiel 
die  erste  Buchstabenreihe  (QWERTYUIOP@*t).  Natürlich  sehen  Sie  am 
Bildschirm  gar  nichts,  denn  das  Programm  der  Schleife  läuft  ja  noch.  So¬ 
bald  aber  die  Schleife  zu  Ende  ist,  erscheinen  10  der  getippten  Buchsta¬ 
ben.  Quod  erat  demonstrandum! 

Warum  nur  10  Buchstaben?  Nun,  der  Tastaturpuffer  hat  nur  10  Plätze,  lo¬ 
gisch? 

Jetzt  müssen  wir  noch  eine  weitere  Speicherzelle  ins  Spiel  bringen.  In 
die  Zelle  198  kann  man  nämlich  eine  Zahl  hineinPOKEn,  welche  die  Anzahl 
der  Zeichen  im  Tastaturpuffer  begrenzt. 

Wiederholen  Sie  bitte  das  Experiment  von  oben,  nur  soll  die  direkt  ein¬ 
gegebene  Zeüe  erweitert  werden: 

FOR  K  =  1  TO  15000:NEXT  K:  POKE  198,6  (RETURN) 

Und  siehe  da,  jetzt  werden  nur  die  6  Buchstaben  0  bis  Y  ausgedruckt. 
Diese  Anwendung  des  Tastaturpuffers  nutzen  wir  für  das  Kochrezept  »Dy¬ 
namische  Tastenabfrage«  aus.  Allerdings  müssen  wir  dazu  prinzipiell  die 
ASCII-Codewerte  verwenden,  so  wie  im  nächsten  Beispiel. 

Löschen  Sie  bitte  den  Büdschirm  und  geben  Sie  ein  (identisch  für  VC  20 
und  C  64): 

10  PRINT  CHR$(65) 

20  PRINT  CHR$(156) 

30  PRINT  CHR$(66)CHR$(13)CHR$(67) 

65  ist  der  Code  für  A,  156  für  die  Farbe  »purple«,  66  für  B,  13für»RETURN« 
und  67  für  C.  Das  heißtalso,  daß  wir  zuerst  ein  A  drucken,  dann  auf  »purple« 
umschalten,  darunter  dann  das  B  schreiben,  einmal  RETURN  geben  und 
dann  noch  das  C  folgen  lassen. 
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Bild  1  zeigt  den  Ausdruck  auf  dem  Bildschirm,  wenn  Sie  diese  Zeilen 
LISTen  und  starten. 

Zur  Erklärung:  Die  Leerzeile  zwischen  A  und  B  ist  bedingt  durch  die 
PRINT-Anweisung  in  Zeile  20,  welche  nur  die  Farbe  umschaltet.  Obwohl 
die  Codes  für  B  und  C  zusammen  in  einer  Zeile  stehen,  werden  sie  doch 
durch  das  »RETURN«  (13)  untereinandergesetzt. 

Anstelle  der  13  können  Sie  alle  mögliche  anderen  Steuerfunktionen  set¬ 
zen.  Bild  2  zeigt  das  Resultat  von  17,  nämlich  »Cursor  down«.  Wenn  Sie  die 
8  nehmen,  können  Sie  den  Zeichensatz  nicht  mehr  ändern.  Der  Einsatz  der 
gleichzeitig  gedrückten  SHIFT-  und  Commodore-Taste  funktioniert  erst 
nach  CHR$(9)  wieder. 

Als  nächstes  wollen  wir  die  ÄSCII-Codewerte  und  den  Tastaturpuffer  im 
»Programm-Modus«  einsetzen. 

Das  Resultat  von  Bild  2  wollen  wir  jetzt  durch  POKEn  der  ÄSCII-Werte  in 
den  Tastaturpuffer  wiederholen. 

5  POKE  198,5 

10  POKE  631,65 

20  POKE  632,156 

30  POKE  633,66:  POKE  634,17:  POKE  635,67 

99  END 

Prinzipiell  macht  dieses  Programm  das  gleiche  wie  das  Programm  in 
Bild  2.  Trotzdem  erhalten  wir  nach  LIST  und  RUN  ein  anders  Ergebnis, 
nämlich  das  von  Bild  3. 

Ist  das  ein  Fehler?  Natürlich  nicht.  Nach  RUN  laufen  zuerst  mal  alle 
POKE-Befehle  ab.  Zeile  5  gibt  an,  wieviele  Zeichen  im  Puffer  stehen  sollen. 
In  Zeile  99  findet  das  Programm  das  ENDe  und  meldet  sich  mit  READY.  Jetzt 
erst  wird  im  Tastaturpuffer  nachgeschaut.  Dort  findet  der  Computer  zuerst 
das  Ä,  dann  »purpur«,  dann  das  B  welches  sofort  neben  das  Ä  gesetzt  wird. 
Das  ist  auch  logisch,  denn  es  fehlt  ja  jede  Angabe,  eine  Zeile  tiefer  zu  ge¬ 
hen.  Um  das  zu  erreichen,  müssen  wir  in  der  Zeile  10  den  Codewert  für  RE¬ 
TURN  einschieben: 

10  POKE  631,65:  POKE  632,13 

Vorsicht!  Sie  müssen  in  Zeile  20  und  30  alle  POKE-Adressen  um  1  erhöhen 
und  auch  die  Zahl  in  Zeile  5.  Nehmen  sie  10,  dann  haben  Sie  Platz  für  Erwei¬ 
terungen.  So,  jetzt  LIST  und  RUN  eingeben  und  es  erscheint  Bild  4  —  und 
wir  haben  schon  wieder  ein  Problem!  Aber  alles  im  Computer  ist  logisch! 
Nach  dem  A  findet  er  den  Wert  für  »RETURN«  also  führt  er  den  Befehl  aus, 
auf  dem  der  Cursor  gerade  steht.  Der  steht  auf  dem  A.  Da  das  kein  gültiger 
Basic-Befehl  ist,  druckt  der  Computer  die  Fehler-Meldung  und  zeigt 
READY  an.  Danach  allerdings  macht  er  weiter  wie  oben. 


Und  jetzt  kommt  die  ASCII-Zahl  141  (SHIFT-RETURN)  voll  zur  Geltung. 
Diese  Kombination  nämlich  setzt  den  Cursor  an  den  Anfang  der  nächsten 
Zeile,  ohne  den  Befehl  »RETURN«  auszuführen. 

Ersetzen  Sie  also  die  13  in  Zeile  10  durch  141,  dann  läuft’s  (Bild  5). 

Es  gibt  übrigens  noch  eine  interessante  ASCII-Codezahl,  die  in  keiner 
Tabelle  steht,  nämlich  131.  Sie  bedeutet  dasselbe  wie  die  geSHIFTete 
STOP-Taste,  also  die  Funktion  »LOAD  +  RUN«. 

Wenn  Sie  diesen  Code  mit  PRINT  CHR$(131)  ausprobieren,  funktioniert 
er  allerdings  nicht.  Deshalb  steht  er  wohl  auch  nicht  in  den  Tabellen. 

In  den  Tastaturpuffer  gePOKEt  bringt  er  aber  seine  Wirkung. 

Setzen  Sie  bitte  in  Zeile  30  an  die  Stelle  von  67  die  Zahl  131  und  anstelle 
des  C  erscheint 

LOAD  und  PRESS  PLAY  ON  TAPE.  Gut,  nicht  wahr? 

So,  jetzt  haben  wir  alle  Zutaten  für  unser  Kochrezept  zusammen. 
Löschen  Sie  bitte  alles  bisherige  und  tippen  Sie  ein: 

10  PRINT  CHR$(147) 

20  FOR  1=1  TO  5:  PRINT  I 
30  FOR  T  =  1  TO  500:  NEXT  T 
40  NEXT  I 

Nach  Löschen  des  Bildschirms  (Zeile  10)  drucken  wir  zum  Aus¬ 
schmücken  die  Zahlen  1  bis  5  untereinander  (Zeile  20  und  40)  und  damit 
es  nicht  zu  schnell  geht,  bremsen  wir  mit  der  Zeile  30. 

50  PRINT  "LIST”  (Das  ist  natürlich  sehr  einfach,  aber  jetzt  kommt’s!) 

60  POKE  198,5 

70  POKE  631,145:  POKE  632,  145:  POKE  633,145 
80  POKE  634,13 
90  END 

Nach  RUN  erscheinen  erst  die  fünf  Zahlen,  dann  wird  in  einer  neuen  Zei¬ 
le  das  Wort  LIST  geschrieben.  Nach  END  wird  erst  (wie  immer)  eine  Zeile 
ausgelassen,  dann  READY  gedruckt  und  schließlich  springt  der  Cursor  an 
den  Anfang  der  Zeüe  darunter.  Während  der  Cursor  anfangen  will,  drei 
Zeüen  unter  dem  Wort  LIST  zu  blinken,  findet  der  Computer  im  Tastatur¬ 
puffer  3  den  ASCII-Code  für  »Cursor  up«.  Also  geht  dieser  auch  drei  Zeilen 
hoch  und  will  jetzt  auf  dem  Wort  LIST  blinken. 

Damit  wird  es  aber  wieder  nichts,  denn  im  Puffer  steht  ja  noch  der  Code 
für  RETURN  (13).  Das  wird  ausgeführt  und  zwar  für  das  LIST.  Es  hat  dieselbe 
Wirkung,  als  ob  Sie  direkt  LIST  tippen  und  danach  auf  die  RETURN-Taste 
drücken,  nämlich  das  Programm  wird  ausgeLISTet. 

A”''  sinnvollen  Basic-Befehle,  die  Sie  in  der  Zeile  50  PRINTen,  werden 
durcn  diese  dynamische  Manipulation  des  Cursors  ausgeführt. 
Versuchen  Sie  es  mit 
50  PRINT  "PRINT  16  *  35" 

50  PRINT  "LOAD” 

50  PRINT  "GOTO  10" 

50  PRINT  "RUN" 

50  PRINT  "RUN  50" 

und  falls  Sie  dieses  kleine  Programm  geSÄVEt  haben 
50  PRINT  "SYS  64824” 

50  PRINT  "SYS  64763” 

Die  Kunst  ist  also,  mit  entsprechenden  Codezahlen  den  Cursor  an  dieje¬ 
nige  Stelle  des  Bildschirms  zu  bringen,  wo  innerhalb  eines  Programms  ei¬ 
ne  geeignete  Anweisung  gedruckt  worden  ist.  Man  kann  damit  getrennte 
Programmteile  nachladen,  mit  SYS-Befehlen  Maschinenprogramme  aufru- 
fen,  oder  gar  Programme  durch  sich  selbst  ändern  lassen.’ 
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Bild  2.  CR  ersetzt  durch  »Cursor  down« 
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Bild  4.  Nach  »A«  wird  CR  eingefügt 
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Bild  3.  Programm  (Bild  2) 
in  den  Tastaturpuffer  gePOKEt 
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Bild  5.  SHIFT-CR  statt  CR 
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Logeieien  (Teil  1) 

ln  vielen  Basic-Programmen  tauchen  sie  auf,  die  logischen 
Operatoren  wie  NOT,  AND  und  OR.  Bei  sinnvollem  Einsatz 
kann  man  eine  Menge  Basic-Speicherplatz  sparen. 

Aber  auch  Ausdrücke  wie  IF  A  THEN  ...  bringen  nicht  nur 
den  Anfänger  manchmal  ins  Schleudern.  Was  steckt 
eigentlich  im  Endefekt  dahinter? 


Di  as  hätte  sich  der  »Vater  der 
'  Logik«,  Aristoteles,  vor  2200 
Jahren  nicht  träumen  lassen  kön¬ 
nen,  was  aus  seinen  Gedanken¬ 
gängen  einmal  werden  würde. 
Man  kann  aber  mit  einiger  Be¬ 
rechtigung  behaupten,  daß  es 
ohne  seine  Werke  und  die  von 
Leibniz  (vor  etwa  300  Jahren  hat 
dieser  die  Logik  modernisiert) 
keine  Computer  gäbe.  Die  Ar¬ 
beiten  der  Begründer  der  ma¬ 
thematischen  Logik,  Boole 
(1815-64)  und  Frege  (1848-1925), 
basieren  auf  dem  Jahrtausende 
alten  Fundament.  Wie  für  den 
Computer  geschaffen  —  aber  ei¬ 
gentlich  ist  es  umgekehrt:  Die  lo¬ 
gische  Maschine  ist  ein  Produkt 
der  mathematischen  Logik  —  ist 
die  sogenannte  zweiwertige  Lo¬ 
gik.  Hier  geht  es  um  »Wahr«  und 
»Falsch«,  ein  drittes  gibt  es  nicht 
(tertium  non  datur,  wie  die  alten 
Philosophen  zu  sagen  pflegten). 
Die  Verwandtschaft  liegt  auf  der 
Hand:  Die  elektronische  Ma¬ 
schine  kennt  die  Zustände  Strom 
an/Strom  aus  oder  Ladung  vor¬ 
handen/nicht  vorhanden  oder 
eben  einfach  1  und  0,  die  Ziffern 
der  Binärarithmetik. 

Dazu  noch  eine  technische  Be¬ 
merkung:  Sollten  Sie  mit  dem  Sy¬ 
stem  der  binären  Zahlen  noch 
nicht  vertraut  sein,  dann  lesen 
Sie  den  beigefügten  Kasten,  in 
dem  die  wichtigsten  Begriffe  er¬ 
klärt  sind. 

1.  Wahrheitswerte  und  Aussagen 

Was  sind  Aussagen?  Am  be¬ 
sten  sehen  wir  uns  einfach  eini¬ 
ge  Beispiele  an: 

—  Rosen  sind  rot 
—  Die  Zahl  ist  größer  als  100. 

Das  sind  einfache  Aussagen. 
Eine  zusammengesetzte  Aussa¬ 
ge  ist  beispielsweise: 

Rosen  sind  rot  UND  Veilchen 
sind  blau.  Hier  wurden  zwei  Aus¬ 
sagen  UND-verknüpft.  Keine 
Aussage  ist: 

—  Wohin  gehst  Du? 

Ich  hoffe,  daß  auf  diese  Weise 
ohne  tiefschürfende  philosophi¬ 
sche  Erörterungen  (denn  die 
gibt  es  natürlich)  das  Wesen  von 
Aussagen  klar  geworden  ist. 

Aussagen  können  wahr  sein. 
Sie  enthalten  dann  den  Wahr¬ 
heitswert  »Wahr«.  Sie  können 
aber  auch  statt  dessen  falsch 


sein,  was  ihnen  den  Wahrheits¬ 
wert  »Falsch«  verleiht.  Der 
Wahrheitswert  von  zusammen¬ 
gesetzten  Aussagen  hängt  zum 
einen  von  den  Wahrheitswerten 
der  Einzelaussagen  ab  und  zum 
anderen  von  der  Art  ihrer  Ver¬ 
knüpfung.  Wir  werden  im  fol¬ 
genden  für  die  Wahrheitswerte 
die  Buchstaben  W  (für  Wahr) 
und  F  (für  Falsch)  verwenden. 

In  der  binären  Arithmetik  ent¬ 
spricht  die  1  dem  W  und  die  0 
dem  F.  Keine  Angst,  falls  Ihnen 
das  noch  unverständlich  er¬ 
scheint,  wir  werden  noch  aller¬ 
lei  Logeleien  mit  Binärzahlen 
treiben.  Dann  wird  Ihnen  das 
ganz  geläufig  sein,  Was  uns  mo¬ 
mentan  interessiert,  ist,  wie  der 
Computer  Wahrheitswerte  ah- 
gibt.  Dazu  machen  wir  einen 
kleinen  Test  mit  dem  folgenden 
Programm: 

10  INPUTÄ.B 
20  C=(Ä  =  B) 

30  PRINTA,B,C 

In  Zeile  20  ist  eine  Aussage 
enthalten:  A  =  B.  Wenn  Sie  A  und 
B  so  eingegeben  haben,  daß 
beide  gleich  sind,  dann  ist  diese 
Aussage  wahr  (W),  und  in  C  fin¬ 
den  Sie  den  Wahrheitswert,  den 
der  Computer  für  W  verwendet. 
Probieren  Sie  dies  mal  aus:  Sie 
finden  —1!  Wenn  aber  A  und  B 
verschiedene  Zahlen  waren,  ist 
die  Aussage  A  =  B  falsch,  und  in 
C  steht  0,  was  die  Computerform 
von  F  ist.  Weshalb  —1  als  Wahr¬ 
heitswert  des  Commodore  64  für 
W?  Das  liegt  daran,  daß  unser 
Computer  für  den  Wahrheits¬ 
wert  ein  ganzes  Byte  reserviert. 
Das  schreibt  er  im  Falle  W  voller 
Einsen: 

1111  1111 

Nach  den  Regeln  von  vorzei¬ 
chenbehafteten  Binärzahlen  ist 
das  aber  die  Erscheinungsform 
von  —1. 

2.  Das  merkwürdige  IF  A  THEN  ... 

Bei  IF.THEN-Verzweigungen 
wird  vom  Computer  der  gesam¬ 
te  Ausdruck  zwischen  IF  und 
THEN  auf  seinen  Wahrheitswert 
untersucht  (das  kann  dann  eine 
Aussage  sein,  aber  auch  etwas 
anderes,  zum  Beispiel  eine  Va¬ 
riable).  Dabei  nimmt  der  C  64  al¬ 
les  für  wahr  an,  was  bei  dieser 
Untersuchung  ungleich  Null  ist. 


Wenn  also  in  einer  Verzweigung 
der  Form: 

IF  ATHEN  ... 

A  schon  irgendeinen  Wert  ange¬ 
nommen  hat,  der  ungleich  Null 
ist,  wird  die  Bedingung  als  er¬ 
füllt  angesehen.  Probieren  Sie 
mal  mit  verschiedenen  Einga¬ 
ben  für  A: 

10  INPUT  A 

20  IF  A  THEN  PRINT  !,TEST” 
30  PRINT  A 

In  der  uns  geläufigeren  Form 
dieser  Verzweigung  tauchen 
zwischen  IF  und  THEN  Aussa¬ 
gen  in  mathematischer  Form  auf, 
in  denen  die  Vergleichssymbole 
verwendet  werden,  zum  Bei¬ 
spiel: 

IFA  >.  -  100  THEN  GOTO  ... 

3.  Rechnen  mit  Wahrheitswerten 

Außerhalb  solch  einer  Ver¬ 
zweigung  ist  es  manchmal  gar 
nicht  so  einfach  festzustellen,  ob 
es  sich  bei  einem  Ausdruck  um 
eine  Aussage  dreht  oder  viel¬ 
leicht  nur  um  eine  Zuweisung.  Es 
kommt  hier  sehr  auf  den  Zusam¬ 
menhang  mit  dem  übrigen  Pro¬ 
grammtext  an.  Beispielsweise 
kann  A  =  B  sowohl  eine  Zuwei¬ 
sung  sein  (LET  A  =  B)  als  auch  ei¬ 
ne  Aussage  (C  =  (A=B)).  In  Pro¬ 
grammen,  in  denen  viel  mit  logi¬ 
schen  Operatoren  gearbeitet 
wird,  empfiehlt  sich  deshalb  — 
um  mehr  Klarheit  zu  schaffen  — , 
die  vom  C  64  verstandene,  aber 
so  gut  wie  nie  verwendete  Basic- 
Vokabel  LET  bei  Zuweisungen 
zu  verwenden. 

Ein  noch  eklatanteres  Beispiel 
ist  enthalten  in  A  =  5  +  2.  Das  ist 
offensichtlich  keine  Aussage, 
könnte  deutlicher  aber  noch  als 
LET  A  =  5  +  2  geschrieben  wer¬ 
den.  In  einem  anderen  Zusam¬ 
menhang  ist  es  eine  Aussage: 

C  =  4-i-(A  =  5-t-2) 

Ist  hier  A  =  5  +  2  wahr  (wenn 
A  =  7),  ergibt  sich  ein  C  von  3, 
weil  ja  der  Wahrheitswert  der 
Aussage  —1  beträgt.  Im  anderen 
Fall  ist  C  =  4.  Man  kann  mit  Aus¬ 
sagen  —  besser  gesagt,  mit  ih¬ 
ren  Wahrheitswerten  —  also 
auch  rechnen. 

Im  folgenden  Programmbei¬ 
spiel  sind  gleich  fünf  Wahrheits¬ 
werte  miteinander  rechnerisch 
verknüpft.  Es  handelt  sich  um  ei¬ 
ne  kurze  Routine  zur  Umrech¬ 


nung  von  ASCII-Code  in  Bild- 
schirmcode; 

10  INPUT"ASCII-WERT";A 
20  C  =  A-161-33*(A  <  255)-64*(A 
<  1S2)-32*(A  <  160)  +  32*(Ä  <  96)- 
64*(Ä  <  64) 

30  PRINT’ ASCII  =  ”A,”POKE- 
CODE="C 

Beispiel:  ASCII  =  65,  Bild¬ 
schirmcode  =  1 

Aussagen  können  auch  mit 
Strings  gebildet  werden.  Auch 
dabei  ergeben  sich  die  Wahr¬ 
heitswerte  —1  oder  0.  Allerdings 
lassen  sich  hier  sinnvoll  nur  die 
Vergleichsrelationen  »  =  «  und 
»ungleich«  einsetzen.  Alle  ande¬ 
ren  »größer  als«,  »kleiner  als« 
etc.  sind  mit  Vorsicht  zu  genie¬ 
ßen.  Zur  Ermittlung  des  Wahr¬ 
heitswertes  werden  nämlich  von 
links  nach  rechts  alle  Buchsta¬ 
ben  beider  Strings  in  Form  ihrer 
ASCII-Werte  miteinander  vergli¬ 
chen.  Die  erste  auf  diese  Weise 
gefundene  Abweichung  führt 
dann  zum  Ergebnis.  Ein  Beispiel 
soll  das  Problem  verdeutlichen: 

Die  Aussage  (A$<B$)  soll  uns 
einen  Wahrheitswert  liefern. 
Wenn  nun  A$  =  ”DZZZ”  und 
B$  =  "EAAA"  definiert  wurden, 
ergibt  sich  —1  als  Wahrheits¬ 
wert,  weil  der  ASCII-Wert  von  D 
kleiner  ist  als  der  von  E.  Der  Rest 
der  Strings  spielt  keine  Rolle 
mehr. 

4.  Die  logischen  Operatoren  in  Basic 

Drei  Operatoren  haben  wir  im 
Normalfall  zur  Verfügung  für  die 
sogenannte  Boolesche  Algebra, 
wie  man  manchmal  auch  das 
Rechnen  mit  logischen  Operato¬ 
ren  nennt: 

NOT,  AND,  0R 

Die  Tabelle  1  zeigt,  wo  in 
der  Prioritätenreihenfolge  aller 
Operatoren  diese  drei  einzu¬ 
ordnen  sind.  Ebenso  wie  bei 
den  arithmetischen  Operatoren 
(  +  ,*.t  etc.)  kann  auch  hier  die 
Reihenfolge  durch  sinnvolle  An¬ 
wendung  von  Klammern  verän¬ 
dert  werden. 


Berner- 

Operato- 

Beispiel 

kung 

ren 

Höchste 

t 

AIB 

Priorität 

*7 

A*B,  A/B 

+  .  — 

A+B.Ä-B 

NOT 

NOTA 

AND 

A  AND  B 

Niedrigste 

Priorität 

OR 

AORB 

Tabelle 

.  Reihenfolge  der 

Priorität  von  Operatoren 

5.  Wahrheitstabellen 

Jede  Verkoppelung  von  Aus¬ 
sagen  (beziehungsweise  ihren 
Wahrheitswerten)  mittels  logi¬ 
scher  Operatoren  ergibt  eben¬ 
falls  wieder  Wahrheitswerte. 
Wir  hatten  vorhin  schon  er- 
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wähnt,  daß  das  Ergebnis  ab¬ 
hängt: 

a)  von  den  Wahrheitswerten  der 
zu  verknüpfenden  Aussagen 
und 

b)  von  der  Art  der  Verknüpfung. 

Das  kann  manchmal  schon 

reichlich  schwer  zu  durchschau¬ 
en  sein,  was  welche  Kombina¬ 
tion  ergibt.  Deshalb  schreibt 
man  sich  eine  Übersicht,  die  alle 
möglichen  Ausgangs-Wahrheits¬ 
werte  enthält  und  die  nach  der 
Verknüpfung  entstandenen 
Wahrheitswerte.  Solche  Tabel¬ 
len  nennt  man  Wahrheitstabel¬ 
len.  Wir  werden  diese  Tabellen 
im  folgenden  bei  der  Erklärung 
der  logischen  Operatoren  ver¬ 
wenden.  Wie  man  sie  erstellt 
und  liest,  wird  Ihnen  schnell  ge¬ 
läufig  sein. 

Noch  eine  Bemerkung:  Die 
Anwendung  der  logischen  Ope¬ 
ratoren  auf  Aussagen  und  auf 
Zahlen  wird  bei  uns  —  aus  Grün¬ 
den  der  besseren  Verständlich¬ 
keit  —  getrennt  behandelt  wer¬ 
den.  Das  ist  eigentlich  nicht  nö¬ 
tig,  denn  im  Grunde  genommen 
sind  ja  die  Wahrheitswerte  von 
Aussagen  auch  nur  Zahlen. 

6.  Die  Anwendung  von  NOT  auf  Aussa¬ 
gen 

Der  NOT-Operator  erzeugt  im¬ 
mer  das  Gegenteil  des  Wahr¬ 
heitswertes  der  Ausgangsaussa¬ 
ge.  Wenden  wir  also  NOT  auf  ei¬ 
ne  Aussage  mit  dem  Wahrheits¬ 
wert  W  an,  dann  ergibt  das  den 
Wert  F.  Dasselbe  geschieht  im 
umgekehrten  Fall. 

Dazu  wollen  wir  uns  eine 
Wahrheitstabelle  schreiben  (Ta¬ 
belle  2).  In  der  linken  Spalte  sind 
die  beiden  möglichen  Wahr¬ 
heitswerte  einer  Aussage  A  auf¬ 
geführt.  Die  rechte  Spalte  eryibt 
sich  durch  Anwendung  von  NOT 
auf  die  Werte  der  linken  Spalte: 
NOT  W  =  F 
NOT  F  =  W 


A 

NOTA 

W 

F 

F 

W 

Tabelle  2.  Wahrheitstabelle: 
NOT  bei  Aussagen 


Das  ist  gar  nicht  so  schwer, 
nicht  wahr?  An  einem  Beispiel 
wollen  wir  uns  das  auch  noch 
mal  ansehen.  Die  Zeile: 

10  A  =  (3  =  5):PRINT  NOT  A 
ergibt  den  Wert  —1.  Die  Aussage 
3=5  ist  ja  falsch  (F  oder  für  den 
Computer  0)  und  A  deshalb  0. 
NOT  A  ergibt  dann  das  Gegen¬ 
teil,  also  W  oder  —1. 

Eine  Basic-Zeile  wie  die  fol¬ 
gende: 

10  A  =  NOT  A 

kann  man  wie  einen  Flip-Flop- 
Schalter  einsetzen,  falls  man  den 
Wahrheitswert  von  A  zuvor  als  0 
oder  —1  definiert  hat.  Jedesmal. 


wenn  das  Programm  über  die¬ 
sen  Ausdruck  läuft,  kippt  der 
Wert  von  A. 

7.  NOT  auf  Zahlen  angewendet 

Zahlen  oder  Variable,  auf  die 
der  NOT-Operator  angewandt 
wird,  verkehren  sich  in  ihr  Einer¬ 
komplement.  Falls  Sie  mit  den 
Begriffen  »Einerkomplement« 
und  »Zweierkomplement« 
Schwierigkeiten  haben,  weise 
ich  Sie  nochmal  auf  den  hier  ab¬ 
gedruckten  Kasten  mit  Erläute¬ 
rungen  hin.  Jedes  Bit  wird  also 
»gekippt«.  Aus  einer  0  wird  1  und 
umgekehrt.  Die  Wahrheitstabel¬ 
le  kann  hier  ähnlich  aufgestellt 
werden  wie  für  Aussagen,  nur 
tauchen  hier  anstelle  von  W  und 
F  nun  1  und  0  (also  die  Bitwerte) 
auf  (siehe  Tabelle  3). 


A 

NOTA 

1 

0 

Tabelle  ; 
N( 

0 

1 

.  Wahrheitstabelle: 

)T  bei  Zahlen 

Eine  Anwendung  von  NOT  wä¬ 
re  beispielsweise  das  gezielte 
Kippen  von  Bytes  oder  2-Byte- 
Werten.  Besonders  bei  Sprite- 
Programmen  ist  sowas  denkbar. 
Nehmen  wir  mal  an,  wir  hätten 
acht  Sprites  definiert,  von  denen 
vier  bis  zu  einem  bestimmten  Er¬ 
eignis  sichtbar  sein  sollen.  Die 
anderen  vier  sind  solange  abge¬ 
schaltet.  Wenn  das  Ereignis  (Ta¬ 
stendruck  oder  Zusammenstoß 
...)  eintritt,  werden  die  obersten 
vier  ab-  und  gleichzeitig  die  an¬ 
deren  vier  angeschaltet.  Regi¬ 
ster  21  (53269)  des  VIC-II-Chip 
stellt  für  jedes  Sprite  ein  Schalt- 
Bit  zur  Verfügung  (0  steht  dort  für 
ein  ausgeschaltetes  und  1  für  ein 
aktiviertes  Sprite).  Sollen  also 
zuerst  die  Sprites  0, 2, 4, 6  an-  und 
1,  3,  5,  7  abgeschaltet  sein,  dann 
enthält  Register  21  das  Bit- 
Muster: 

0101  0101 

Darauf  nun  eine  NOT-Opera- 
tion  angewendet  ergäbe  genau 
das  erwünschte  Kippen: 

1010  1010  nach  NOT. 

Es  läge  daher  nahe,  etwa  so  zu 
programmieren: 

POKE  53269, NOT  PEEK(53269) 

Leider  ist  das  nicht  möglich. 
Versucht  man  es  trotzdem,  er¬ 
hält  man  einen  ILLEGAL  QUAN- 
TITY  ERROR.  Woran  liegt  das? 
Die  Ursache  dafür  liegt  wieder 
in  der  Eigenart,  wie  der  C  64 
Integer-Zahlen  interpretiert. 
Zwar  erzeugt  die  NOT-Opera- 
tion  das  Einerkomplement  der 
Ausgangszahl,  verstanden  wird 
dieses  Ergebnis  aber  als  Zwei¬ 
erkomplementzahl.  Daraus 
folgt,  daß  man  mit  der  obigen 
Anweisung  versucht,  eine  nega¬ 
tive  Zahl  in  die  Speicherstelle  zu 
POKEn,  und  da  streikt  unser 


Computer.  Die  Binärzahl  1010 
1010  wird  als  —86  verstanden. 
Was  kann  man  tun,  daß  der  wah¬ 
re  Wert,  also  170,  in  den  Spei¬ 
cher  gePOKEt  wird?  Bei  1-Byte- 
Zahlen  ist  das  relativ  einfach: 
Man  wandelt  sie  durch  Abzie¬ 
hen  von  256  in  eine  2-Byte-Zahl 
um,  also  NOT(A-256),  In  Bild  2  ist 
zu  sehen,  was  dabei  geschieht. 

Ein  anderer  Weg  für  1-Byte- 
Zahlen  (also  Zahlen,  die  kleiner 
als  255  sind)  ist  NOT  A  AND  255, 
was  wir  aber  erst  später  verste¬ 
hen  werden,  wenn  wir  die  AND- 
Operation  kennengelernt  ha¬ 
ben.  Vorsicht  muß  man  walten 
lassen,  wenn  auch  negative  A- 
Werte  auftreten.  Negative  A 
können  ohne  Probleme  der 
NOT-Operation  unterzogen  wer¬ 
den,  weil  das  Ergebnis  in  jedem 
Fall  positiv  ist.  Verwendet  man 
NOT(A-256),  kommt  es  zu  Feh¬ 
lern.  Der  Weg  über  NOTA  AND 
255  ist  auch  mit  negativen  1-Byte- 
Zahlen  möglich.  Am  sichersten 
wäre  also  diese  Basic-Zeile: 
POKE53269,NOTPEEK(53269) 
AND255 

2-Byte-Zahlen  spielen  bei  PO- 
KEs  keine  Rolle,  weshalb  wir  auf 
die  Umwandlung  der  negativen 
Zahl  in  den  vorzeichenfreien 
Ausdruck  hier  nicht  eingehen 
werden.  Eine  andere  Sache 
muß  bei  der  Anwendung  von 
NOT  noch  bedacht  werden:  Die¬ 
se  )peration  arbeitet  mit 
Integer-Zahlen.  Treten  nun  als 
Argumente  »Komma-Zahlen« 
auf,  dann  führt  der  C  64  zuerst  ei¬ 
ne  INT-Operation  aus,  die  unter 
Umständen  zu  Fehlern  führen 
kann:  3  999  ergibt  dann  ein  deut¬ 
lich  anderes  Ergebnis  als  4001. 

Die  NOT-Operation  kann  nur 
auf  Zahlen,  nicht  aber  auf  Strings 
angewendet  werden.  Aller¬ 
dings  erfolgt  die  computerinter- 
ne  Speicherung  von  Buchstaben 
ja  als  ASCII-Werte,  also  auch  als 
Zahlen,  Wenn  wir  daher  die 
ASCII-Codes  eines  Textes  der 
NOT-Verknüpfung  unterziehen, 
haben  wir  auch  Strings  dieser 
Operation  zugänglich  gemacht. 
Genau  das  tut  ein  kleines  Demo- 


Programm  (Programm  Logik-1): 
Es  ver-  und  entschlüsselt  Texte 
mittels  NOT. 

In  diesem  Demo-Programm 
wird  Text  Buchstabe  für  Buchsta¬ 
be  in  die  ASCII-Werte  übertra¬ 
gen  und  diese  dann  durch  NOT 
komplementiert  und  in  C$  ge¬ 
speichert.  Der  Ausdruck  ist 
dann  ein  unverständliches  Kau¬ 
derwelsch,  das  aber  durch  eine 
zweite  NOT-Operation  wieder 
lesbar  wird. 

8.  Eine  kleine  Hilfe 

Als  Programm  Logik-2  finden 
Sie  eine  kleine  Denk-  und  Re¬ 
chenhilfe  hier  abgedruckt.  Die¬ 
ses  Programm  kann  Zahlen  zwi¬ 
schen  —32767  und  +  32767  den 
logischen  Verknüpfungen  unter¬ 
ziehen  und  zeigt  Ihnen  dabei, 
was  sich  im  Binärformat  abspielt 
und  wie  die  Argumente  —  falls 
negative  Zahlen  auftreten  —  im 
vorzeichenfreien  Format  ausse- 
hen.  Nach  dem  RUN  bietet  Ih¬ 
nen  ein  Menü  fünf  Möglichkei¬ 
ten  an:  NOT,  AND,  OR,  EOR  und 
Programmende.  NOT  kennen 
Sie  ja  schon,  die  anderen  logi¬ 
schen  Operatoren  werden  Ih¬ 
nen  in  der  nächsten  Folge  geläu¬ 
fig  werden.  Dort  wird  Ihnen  die¬ 
ses  Programm  dann  einige  Hil¬ 
festellungen  geben  für  etwas 
kompliziertere  Sachverhalte. 
Wenn  Sie  eine  Option  angewählt 
haben,  werden  zwei  Zahlenein¬ 
gaben  verlangt  (bei  NOT  nur  ei¬ 
ne)  und  dann  die  entsprechen¬ 
den  Binärzahlen,  die  vorzei¬ 
chenfreien  Formen  und  das  Er¬ 
gebnis  der  Verknüpfung  ausge¬ 
druckt.  Innerhalb  der  gesteck¬ 
ten  Grenzen  sind  alle  Zahlen¬ 
eingabe-Formate  möglich.  Ein 
Tastendruck  bringt  Sie  wieder 
ins  Menü  zurück. 

In  der  nächsten  Folge  werden 
wir  uns  die  Operatoren  AND 
und  OR  ansehen.  Ein  in  dem 
WAIT-Befehl  versteckter  weite¬ 
rer  Operator  EOR  soll  aufge¬ 
spürt  werden,  und  wir  werden 
wieder  einige  Anwendungen 
der  Boole’schen  Algebra  in  un¬ 
serem  Computer  kennenlernen. 

(Heimo  Ponnath/gk) 


10  REM -  <102> 

20  REM  LOGIK  -  1  <119> 

30  REM -  <122> 

40  :  <  098  > 

50  PRINT" -CCLR,7SPACE>GEHE IMCODE  MIT  NOT"  <071  > 

60  PRINT : PRINT  <168> 

70  PRINT"  GEBEN  SIE  EIN  WORT  EIN";  <164> 

100  INPUT  A$:L=LEN<A$) :DIM  A (L) , B (L) , BS (L) 

:K=0  <062 > 

110  C$=""  <203 > 

120  FOR  1=1  TO  L:A<I)=ASC(MID$(A$,I,1) ):B< 

I ) =NQT  A(I) -257: B* ( I ) =CHR$ (B  C I ) > : NEXT 
I  < 190  > 

130  FOR  1=1  TO  L:C$=C*+B$<I) ;NEXT  I  <136> 

140  IF  K=0  THEN:  PRINT :  PRINT"TEXT  II  1SF-ACE>= 

";A$  <247> 

145  IF  K=1  THEN : PR I NT : PR I NT " GEHE I MCODE C 5SP 

ACE>=  " ;A$  < 130 > 

150  K=K+i:IF  K=1  THEN  A$=C*:GOTO  110  <038> 

160  PR I NT : PR INT" ENTSCHLUESSELT  =  " ; CS  <101> 


Programm  Logik-1.  Mit  NOT  eine  Geheimschrift  erzeugen 
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1  REM  ********************************* 


2  REM  *  * 

3  REM  *  LOS ISCHE  OPERATIONEN  * 

4  REM  *  * 

5  REM  *  ZUM  VERFOLGEN  IM  B I NAERFORMAT  * 

6  REM  *  NOT , AMD , OR , EOR  * 

7  REM  *  * 

B  REM  *  HEIMO  PONNATH  HAMBURG  1985  * 

9  REM  *  * 


1 0  REM********************************* 

15  PRINT  CHRf  (147  )  :  GOTO  203 

20  REM  *****  UP-CURSOR  SETZEN  ***** 

25  POLE  211,5: POKE  214, Zs  SYS  58640: RETURN 
30  REM  *****  UP-EINGABETEST  ******* 

35  E=ABS (E) :A=(E>=0) :B=(E<255> 

40  IF  A  AND  B  THEN  M=8: RETURN 
45  A=(E>=255) :B=(E<327635 
50  IF  A  AND  B  THEN  M=1 6: RETURN 
55  M=0: RETURN 

60  REM  *****  UP-EINGABE  1  ********* 

65  S=1 : Z=5: GQSUB  25s  PRINT  CHRf (28) "WELCHE 
ZAHL  SOLLS  DENN  SEIN?” 

70  Z=7 : GOSUB  25: PR INT "SIE  MUSS  ZWISCHEN  -3 
2767UND  +32767  SEIN" 

75  Z=9: GOSUB  25: INPUT  W:E=W:GOSUB  35: IF  M= 
0  THEN  POKE  78 1,9: SYS  59903: GOTO  75 
30  PRINT  CHRf< 30) : RETURN 
B5  REM  *****  UF'-E INGABE  2  ********* 

90  S=lsZ=5: GOSUB  25: PRINT  CHRf (28) "GEBEN  S 
IE  NUN  DIE  BEIDEN  ZAHLEN  EIN. " 

95  S=1:Z=7: GOSUB  25: PRINT"SIE  MUESSEN  ZW. 

-32767  U.  +32767  SEIN!" 

100  Z=9: GOSUB  25: INPUT "ERSTE  ZAHL  =";W1:E= 
Wl: GOSUB  35: M 1 =M 

105  IF  M=0  THEN  POKE  781, 9: SYS  59903: GOTO 
100 

110  Z=U:  GOSUB  25:  INPUT  "ZWEITE  ZAHL=";W2:E 
=W2: GOSUB  35 

115  IF  M=0  THEN  POKE  781,11: SYS  59903: GOTO 
110 

120  M=16+B* ( (Ml=8) AND (M=8) ) : PRINT  CHRf<30) 
: RETURN 

125  REM  ****  UP-UMRECHNUNG  DEZ/BIN  **** 

130  BIT—" " : DI=DE 

135  D I  =D I / 2 :  Df =  " 0 :  I F  DIOINT  (DI )  THEN  Df—  " 
1" 

140  DI=INT (DI) : Blf-Df+BIf: IF  DI>0  THEN  135 
145  IF  LEN  (Elf  )  <M  THEN  BIf="0"+BIf :  GOTO  14 
5 

150  RETURN 

155  REM  ****  UP-UMRECHNUNG  BIN/DEZ  **** 

160  DE=0: FCR  1=1  TO  M: IF  MIDf ( Af , I , 1 ) =" 1 "T 
HEN  DE=DE+2T (M-I ) 

165  NEXT  I: RETURN 

170  REM  ****  UP-BILDSCHIRMAUSGABE  ***** 

175  PRINT  CHRf ( 158) TAB (5) DE; TAB ( 32-M) BI f : C 
HRf (30) : RETURN 

198  REM 

199  REM  ****  HAUPTPROGRAMM— VARIABLE  *** 

200  S=0: Z=0:E=0: A=0: B=0: M=0: W=0: W1=0:W2=0: 
M1=0: 1=0: K=0: X=0 

205  DI=3:DE=0:C=0: V=0 

213  BI$="  "  :  Df— "  "  :  Af="  11 :  Bf="  "  :  Cf—"  "  :  Zf—" - 

- " • BEf=" " 

220  DIM  DE (3) ,BIf (3) 

299  REM  ****  HAUPTPROGRAMM-MENUE  ****** 

300  POKE  53280,3: POKE  53281 , 0: PRINT  CHRf ( 1 
47) CHRf (30) 

305  Z=3:S=2: GOSUB  25: PRINT  CHRf (18)"  DIE  L 
06 ISCHEN  BEFEHLE  IN  BINAERFORM  " 

310  Z=7 : GOSUB  25: PRINT  TAB < 10) "NOT"TAB (25) 
"1" 

315  Z=9:  GOSUB  25:F'RINT  TAB  (10)  "AND"TAB  (25) 
"2" 

320  Z=ll: GOSUB  25: PRINT  TAB ( 10) " 0R”TAB (25) 

325  Z=13: GQSUB  25: PRINT  TAB ( 10) "EOR"TAB (25 
)  "4" 

330  Z= 15: GOSUB  25: PRINT  TAB ( 10) "PROGRAMMEN 
DE "TAB (25) "5" 

335  FOKE  646, 10: Z=20: GOSUB  25: PR INT "BITTE 

WAEHLEN  SIE  EINEN  MENUEPUMKT "CHRf (3 

0) 


<250 > 
<229  > 
<120> 
<23 1> 

<  156? 
<1S4> 
<234  > 
<082> 
<236  > 
<003 > 
<177> 
<208> 
<088> 

<  1 62  > 

<  207  > 

<  1 39  > 
<054  > 
<196> 
<046> 
<005> 

<  1 92  > 
<226 > 

<21 1> 

<044  > 
<031  > 

<074  > 

<1 1 6  > 

<043 > 

<156> 

<254> 

<2se> 

<195> 
<021  > 
<041  > 

<121  > 
<045> 

<  0 1 7  > 
<036  > 
<051  > 

<  1 6B> 
<056  > 
<094 > 

<325? 

<085> 

<214? 

<142> 

<178> 

<087> 
<206  > 
<237> 

<084? 

<  1 25  > 

<  1 33  > 
<111  > 

<  1 08  > 
<185> 
<092> 


<222> 


343  GET  Bf : IF  Bf<"l"OR  Bf >"5” THEN  340 
345  ON  VAL (Bf) GQSUB  400,500,630,700,800 
350  Z=23:S=1: GOSUB  25: PRINT  CHRf (3) "WEITER 
DURCH  TASTENDRUCK. . . " 

355  POKE  198 ,0: WAIT  198, l:GGTO  300 
399  REM  ****  OPTION  -  NOT  *********** 

430  PRINT  CHRf (147) :Z=2:S= 1: GOSUB  25:PRINT 
CHRf  (18)  ”  OPTION  C2SPACE  JNOT  C6SF'ACE> "C 
HRf (146) 

435  BIf =" " : BEf— " " : Df=" " : W=0: DE=0: K=0: GOSUB 
65: IF  W<0  THEN  450 
410  DE=W: GOSUB  130 

412  Z=15: 3=0: GOSUB  25: GOSUB  175: PRINT  TAB ( 
15 ) Zf + "  NOT" : BEf=" " 

415  FOR  1  =  1  TO  M:Df=MIDf (BIf , I, 1) : IF  Df— "1 
"THEN  Df ="0" : GOTO  420 
417  Df =" 1 " 

423  BEf =BEf+Df: NEXT  I:IF  K=1  THEN  RETURN 
425  BI f=BEf : Af=BEf : GOSUB  160: Z=17: S=0: GOSU 
B  25: GOSUB  175: BEf ="": RETURN 
440  REM  ****  UP— NEGATIVE  BINAERZAHL  *** 

45S  W=NQT  W:DE=W: GOSUB  130: K=1 : GOSUB  415: A 
f =BEf : GOSUB  160: K=0: IF  X=1  THEN  RETURN 
455  BIf=BEf : BEf=" " : GOTO  412 
499  REM  ****  OPTION  -  AND  *********** 

503  PRINT  CHRf  (147)  :  Z=2:  S=i:  GOSUB  25-.PRINT 
CHRf  < 18) "  OPTION  C2SPACET AND  C6SPACE J "C 
HRf (146) 

532  REM  ****  UP-EI NGABENVERARBEITUNG  ** 

505  GOSUB  90: IF  W1<0  THEN  W=W1:  X=1 : GOSUB  4 

5B:X=0:EI$ai  =BEf :  DE  (  1  )  =DE:  BEf  =  "  "  :  DE=0 
510  IF  W2<0  THEN  W=W2:X=1: GOSUB  450:X=0:BI 
f ( 2 ) =EEf : DE ( 2 ) =DE : BEf = " " : DE=0 
515  IF  W1>=0  THEN  DE=WL:GOSÜB  130:DE(1)=DE 
: BIf ( 1 ) =BIf : DE=0: BIf =" " 

523  IF  W2>=0  THEN  DE=W2: GOSUB  130:DE(2)=DE 
: BIf (2) =BI$: DE=0: BIf = " " 

525  Z=15:S=0: GOSUB  25: DE=DE ( 1 ) : BIf =BI$ ( 1 ) : 
GOSUB  175 

533  %=-  x :  GOSUB  25:  DE=DE  (2)  :  BIf=BIf  (2)  :  GOSU 
B  1/5: IF  V= 1  THEN  RETURN 

532  PRINT  TAB (15) Zf+"  AND" : BIf (3) ="" 

535  FOR  1  =  1  TO  M: A=VAL (MIDf (BIf ( 1 )  ,  1 , 1 ) ) : B 
=VAL (MIDf (BIf (2) , I , 1 ) ) : C=A  AND  B 
54E  BIf (3 ) =BIf (3) +RI GHT f  <STRf (0,1):  NEXT  I 
: Af=BIf (3) : GQSUB  160: BIf =BI f (3) 

545  Z=18: GOSUB  25: GOSUB  175: RETURN 

599  REM  ****  OPTION  -  OR  ************ 

600  PRINT  CHRf (147) :Z=2:S=1 : GOSUB  25: PRINT 

CHRf  (18)  "  OPTION  C3SPACE30R  «»SPACE  >" CH 
Rf (146) 

605  V=l: GOSUB  505: V=0 

610  PRINT  TAB  <155  Zf +"  OR" : BIf (3) =" " 

615  FOR  1  =  1  TO  M: A=VAL(MIDf (BIf (1)  ,  I  ,1  )  )  :B 
=VAL(MIDf (BIf (2) , I, 1) ) :C=A  OR  B 
620  BIf (3) =BIf (3) +RIGHTf (STRf (C) , 1 ) : NEXT  I 
:  Af=BIf  (3)  -.GOSUB  160:  BIf=BIf  (3) 

625  Z= 18: GOSUB  25: GOSUB  175: RETURN 

699  REM  ****  OPTION  —  EOR  *********** 

700  PRINT  CHRf (147) : Z=2:S=1: GOSUB  25: PRINT 


<045> 

<  146  > 

<232> 
< 026  > 

<  140  > 


<009  > 

<  158  > 

<  136  > 

<077> 

<  0 1 6  > 
<049? 
< 236  > 

<098> 

<  1 1 5  > 

<  177  > 

<  009  > 

<210  > 


<079> 

<027> 

<105> 

<066> 

<  064  > 

<  073  > 

<  206  > 

<  154  > 

<  131  > 

<220> 

<100> 

<242> 
<047  > 


<  1 30  > 

<  107  > 

<  1 59  > 

<045> 

<180> 
<066  > 

<  174  > 


CHRf  (18)  "  OPTION ■C2SPACEJE0R  C6SPACE>"C 
HRf ( 1 46)  <043> 

735  V=l: GOSUB  535: V=0  <2B7> 

713  PRINT  TAB ( 15) Zf +"  EOR" : BIf ( 3) =" "  <072> 

715  FOR  1  =  1  TO  M: A=VAL (MIDf (BIf (1)  ,  I  ,  1 ))  :B 

=VAL(MIDf (BIf (2)  ,1,1) )  <047> 

720  IF  A+B=l  THEN  C=1:G0T0  730  <151> 

725  0=0  <252 > 

730  BIf (3>=BIf (3)+RIGHTf (STRf (C) , 1) : NEXT  I 

: Af=BIf (3) : GOSUB  160: BIf =BI f (3)  <034> 

735  Z=18: GOSUB  25:G03UB  175:RETURN  <176> 

799  REM  ****  OPTION-PROGRAMMENDE  ****  <136> 

800  PRINT  CHRf (147) :S=S: Z=12: GOSUB  25:PRIN 

T"DAS  WAR ’S. . -TSCHUESS  ! "  <01 4> 

805  Z=22: S=0: GOSUB  25: END  <239 > 


Programm  Logik-2.  Sie  sehen,  was  bei  der  Verknüpfung  von  Zah¬ 
len  mit  logischen  Operatoren  geschieht.  Beachten  Sie  bitte  die  Ein¬ 
gabehinweise  auf  Seite  77 


Ausgabe  7/Juli  198S 


tiline.de 

mine.net 


logeleien-Kurs 


C  64/VC  20 


Einige  Erläuterungen  zum  Rechnen  mit 
Binärzahlen 

a)  Dezimales  und  binäres  Zahlensystem 

Wir  sind  es  gewohnt,  im  dezimalen  Zahlensystem  zu 
rechnen  unter  Verwendung  der  Ziffern  0  bis  9.  Die  Grund¬ 
lage  unseres  Zahlensystems  ist  die  Zahl  10.  Reichen  die 
Ziffern  0  bis  9  nicht  aus,  um  eine  Zahl  (zum  Beispiel  9  +  1) 
darzustellen,  dann  führen  wir  den  Stellenwert  einer  Zahl 
ein,  Hierbei  hat  jede  Stelle  in  einer  Zahl  einen  Faktor,  der 
sich  berechnet  aus  10Ste||e.  Zum  Beispiel  in  der  Zahl  132 
befindet  sich  die  Ziffer  2  an  der  nullten  Stelle,  und  sie  wird 
mit  dem  Faktor  10°  multipliziert  (10°  =  1).  Für  unsere  Bei¬ 
spielszahl  können  wir  so  schreiben: 

132  =  1*10 1 2  +  3*10 1 1  +  2*10 1 0  =  1*100  +  3*10  +  2*1 

Nach  demselben  Prinzip  wird  im  Binärsystem  verfah¬ 
ren.  Hier  gibt  es  allerdings  nur  die  Ziffern  0  und  1.  Die 
Grundlage  dieses  Systems  ist  die  Zahl  2.  Auch  hier  spielt 
der  Stellenwert  die  entscheidende  Rolle.  Der  Faktor  ist 
nun  aber  die  entsprechende  Zweierpotenz  (2  t  Stelle).  Die 
Binärzahl  110  beispielsweise  setzt  sich  dann  so  zusammen: 
110=  1*212  + l*2t  1  +  0*210 
=  1*4 +  1*2 +  0*1=  6 

b)  Umrechnung  Binär-  in  Dezimalzahl 

Damit  haben  Sie  praktisch  schon  gesehen,  wie  man  Bi¬ 
närzahlen  m  Dezimalzahlen  umrechnen  kann:  Jeder  Stelle 
entspricht  eine  Zweierpotenz.  Alle  Zweierpotenzen,  an 
deren  Stelle  eine  1  steht,  werden  zusammengezählt.  Da¬ 
bei  gilt:  2°  =  1  (siehe  Bild  1). 


4.  Stelle 

3.  Stelle 

2.  Stelle 

1.  Stelle 

0.  Stelle 

=  1*24 

+  1*23 

+  1*22 

+  0*2> 

+  1*  2°  = 

=  1*16 

+  1*8 

+  1*4 

+  0*2 

+ 1*  i  = 

=  16 

+  8 

+  4 

+ 

1  = 

=  29 

Bild  1. 

Umrechnung  einer  Binärzahl  (11101)  in 

eine 

Dezimalzahl  (29) 

c)  Umrechnung  Dezimal-  in  Binärzahl 

Der  umgekehrte  Weg  läßt  sich  durch  eine  Kettendivi¬ 
sion  der  Dezimalzahl  durch  2  realisieren.  Jeweils  die  Divi¬ 
sionsreste  ergeben  eine  Stelle  der  Binärzahl.  Beispiel  (die 
Zahl  29): 


Binärzahl 


29: 

2  = 

14 

Rest  1 

0.  Stelle 

14: 

2  = 

7 

Rest  0 

1.  Stelle 

7: 

2  = 

3 

Rest  1 

2.  Stelle 

3: 

2  = 

1 

Rest  1 

3.  Stelle 

1: 

2  = 

0 

Rest  1 

4.  Stelle 

Bild  la.  Umrechnung  einer  Dezimalzahl  in  eine  Binärzahl 


Die  Kettendivision  ist  beendet,  wenn  sich  als  Ergebnis  0 
zeigt.  Die  Zahl  29  lautet  also  im  Binärformat  11101. 

d)  Bits  und  Bytes 

Eine  Stelle  einer  solchen  Binärzahl  nennt  man  ein  »Bit«. 
Unser  Computer  ist  so  gebaut,  daß  er  8  Bit  zu  einer  Einheit 
zusammenfaßt.  Solch  eine  Einheit  ist  ein  Byte.  Jede  Spei¬ 
cherstelle  des  C  64  faßt  genau  ein  solches  Byte.  Weil  aber 
die  größte  in  einem  Byte  darstellbare  Zahl  binär  11111111  ist 
—  was  dezimal  255  entspricht  (rechnen  Sie  mal  nach)  — , 
meldet  unser  Computer  einen  ILLEGAL  QUANTITY  ER¬ 
ROR,  wenn  wir  versuchen,  eine  größere  Zahl  in  eine  Spei¬ 
cherstelle  zu  POKEn. 

Der  C  64  ist  darauf  eingerichtet,  ganze  Zahlen  als  2-Byte- 
Werte  (also  mit  16  Bit)  zu  verarbeiten.  Die  auf  diese  Weise 


größte  darstellbare  Zahl  ist  11111111  11111111,  was  65535  ent¬ 
spricht.  Das  ist  übrigens  genau  die  Anzahl  der  Speicher¬ 
stellen  unseres  Computers.  Allerdings  erlaubt  der  C  64 
bei  Integerzahlen  lediglich  Eingaben  zwischen  32767  und 
—32768.  Die  Ursache  dafür  ist  die  Art,  wie  negative  Bmär- 
zahlen  erzeugt  und  gespeichert  werden, 
e)  Negative  Binärzahlen 

Bit  7  (also  das  ganz  links  stehende  Bit  eines  Bytes:  Die 
Zählung  fängt  rechts  mit  0  an)  einer  8-Bit-Zahl  oder  Bit  15 
einer  16-Bit-Zahl  wird  als  Vorzeichenkennung  verwendet. 
Ist  dieses  Bit  eine  0,  dann  liegt  eine  positive,  ansonsten  ei¬ 
ne  negative  Zahl  vor.  Die  Binärzahl  0111  1111  1111  1111(32767) 
ist  daher  die  größte  vorzeichenbehaftete  16-Bit-Binärzahl. 
Wenn  also  Bit  7  (oder  bei  der  16-Bit-Zahl  Bit  15)  eine  1  ent¬ 
hält,  handelt  es  sich  um  eine  negative  Zahl.  Unser  Compu¬ 
ter  hat  aber  eine  besondere  Art,  solche  negativen  Zahlen 
zu  verstehen:  Er  interpretiert  sie  als  »Zweierkomplement¬ 
zahlen«.  Ein  Beispiel,  in  dem  wir  die  Zahl  —29  in  dieses 
Format  bringen,  soll  erläutern,  worum  es  sich  dabei  han¬ 
delt: 

Schritt  1: 

Man  berechnet  zuerst  die  Binärzahl  der  positiven  Zahl, 
also  von  29: 

0000  0000  0001  1101 
Schritt  2: 

Davon  wird  nun  das  sogenannte  Einerkomplement  ge¬ 
bildet,  wobei  jedes  Bit  in  sein  Gegenteil  verkehrt  wird: 
1111  1111  1110  0010 
Schritt  3: 

Aus  dem  so  erhaltenen  Einerkomplement  bildet  man 
das  »Zweierkomplement«  durch  Addieren  einer  1: 

1111  1111  1110  0010 

_ 1  + 

1111  nio  oon  '■ 

Das  Ergebnis  ist  —29  im  Zweierkomplement-Format. 

Hat  man  eine  Zahl  im  Zweierkomplementformat  vorlie¬ 
gen,  dann  kann  man  auf  genau  demselben  Weg  ihren 
Wert  feststellen.  Das  wollen  wir  uns  noch  an  einer  8-Bit- 
Zahl  ansehen: 

Schritt  1: 

Es  liegt  eine  Binärzahl  vor,  die  so  aussieht: 

1111  1110 
Schritt  2: 

Das  Einerkomplement  wird  gebildet: 

0000  0001 
Schritt  3: 

Das  Zweierkomplement  wird  durch  Addieren  von  1  er¬ 
zeugt: 

oooo  0001 

_ Li _ 

0000  0010 

Schritt  4: 

Umrechnen  der  Binärzahl  in  die  Dezimalzahl  ergibt  hier 
den  Wert  2.  Das  Vorzeichen  war  negativ  (Bit  7  ist  ja  1  in  der 
ursprünglichen  Zahl).  Es  handelte  sich  also  um  die 
Zahl  -2. 


Bild  2.  Ablauf  der  Operation  NOT  (A— 256)  bei  A=0101  0101 
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Wettbewerb:  Terminalprogramm 


C  64 


Achtung! 

Die  Qualitäten  dieses 
Programmes  zwangen 
uns  zu  einer  etwas  unge¬ 
wöhnlichen  Maßnahme. 

Das  hier  abgedruckte 
Basic-Programm  ist  in 
dieser  Form  nicht  lauffä¬ 
hig.  Es  muß  erst  mit  dem 
Austro-Speed-Compiler 
compiliert  werden.  Was 
soll  dann  der  Abdruck, 
beziehungsweise  wer  hat 
schon  diesen  Compiler, 
werden  Sie  wohl  fragen. 
Nun,  wir  sind  von  diesem 
Termmaiprogramm  und 
seinen  Leistungen  über¬ 
zeugt.  Ein  Abdruck  der 
mit  MSE  einzugebenden 
compilierten  Version  wür¬ 
de  mindestens  zehn  Sei¬ 
ten  beanspruchen.  Dies 
halten  wir  für  nicht  zumut¬ 
bar.  Um  nun  allen  Lesern 


Achtung! 

dieses  Programm  zu¬ 
gänglich  zu  machen,  bie¬ 
ten  wir  in  diesem  Fall  ei¬ 
nen  Extraservice.  Alle, 
die  an  dem  MSE-Listing 
interessiert  sind,  können 
dies  gegen  Einsendung 
eines  Freiumschlages 
(DIN  A6,  frankiert  mit  1,10 
Mark)  bei  folgender 
Adresse  anfordern: 

Markt  &  Technik  Verlag 
Redaktion  64'er 
Stichwort:  Terminal 
Hans-Pmsel-Straße  2 
8013  Haar  bei  München 
Eine  weitere  Möglich¬ 
keit,  das  Listingzu  nutzen, 
bietet  Ihnen  natürlich 
auch  der  Leserservice. 
Auf  der  heftbegleitenden 
Diskette  befindet  sich  na¬ 
türlich  auch  die  compi- 
lierte  Version.  (rg) 


Terminal- 
Programm 
der  Spitzen¬ 
klasse 

Eine  harte  Nuß 
haben  wir  unseren 
Lesern  mit  diesem 
Wettbewerb  zu 
knacken  gegeben. 
Trotzdem  erreich¬ 
ten  uns  viele 
Einsendungen  als 
Anwärter  auf 
den  ersten  Preis. 


Lebenslauf 

Ich  wurde  am  15.9.1966  ge¬ 
boren.  Heute  gehe  ich  in  die 
12.  Klasse  des  Ratsgymnasi¬ 
ums  in  Stadthagen.  Bevor  ich 
mich  mit  dem  Computer  be¬ 
schäftigte,  hatte  ich  die  Hob¬ 
bys  Modelleisenbahn  und 
Elektronik'.  Weiterhin  bin  ich 
noch  Modellflieger. 

Den  C  64  habe  ich  seit  ei¬ 
nem  Jahr.  In  dieser  Zeit  lern¬ 
te  ich  zunächst  B  asic  und  Pas¬ 
cal,  was  auch  bei  uns  in  der 
Schule  im  Informatikunter¬ 
richt  verwendet  wird.  Seit  ei¬ 
niger  Zeit  beschäftige  ich 
mich  mit  Assembler. 

Vor  zirka  einem  halben 
Jahr  kaufte  ich  mir  einen 
Akustikkoppler.  Da  ich  kein 
passendes  Terminalpro¬ 
gramm  fand,  begann  ich  mir 
ein  eigenes  Programm  zu 
schreiben.  Dieses  wurde 
dann  immer  mehr  erweitert, 
bis  es  die  heutige  Form  hatte. 

(Peter  Falk) 


Peter  Falk  konnte  mit  sei¬ 
nem  Programm  »Super 
Term  64«  diesen  Wettbe¬ 
werb  für  sich  entscheiden. 
Besonders  erwähnenswert 
ist  neben  der  Leistung  die¬ 
ses  Programmes  der  über¬ 
sichtliche  und  gut  durch¬ 
schaubare  Programmierst  il. 

Der  Autor:  »Ich  habe  bei 
dem  Terminal-Programm 
einerseits  darauf  Wert  ge¬ 
legt,  daß  es  möglichst  kom¬ 
fortabel  und  benutzer¬ 
freundlich  ist,  andererseits 
war  mir  aber  auch  ein  gro¬ 
ßer  Terminal-Speicher  sehr 
wichtig.  Deswegen  habe  ich 
auf  unnötige  »Verzierungen« 
verzichtet.  So  kann  man  bei 
den  Übertragungs-Parame¬ 
tern  zum  Beispiel  nur  Baud¬ 
rate,  Datenbits  und  Stop-Bits 
in  begrenztem  Umfang  än¬ 
dern,  Ich  habe  jedoch  die 
Erfahrung  gemacht,  daß 
man  bei  allen  Mailboxen  ei¬ 
ne  einwandfreie  Verbindung 
hat,  wenn  man  die  Normal¬ 
parameter  (300  Baud,  7  Bit,  1 
Stop-Bit)  benutzt.  Der  C  64 
empfängt  nämlich  auch 
dann  richtig,  wenn  er  zum 
Beispiel  auf  7  Datenbit  ein¬ 
gestellt  ist  und  die  Gegen¬ 
stelle  mit  8  Bit  sendest:  Nur 
wenn  man  auch  Steuerzei¬ 
chen  übertragen  will,  muß 
man  auf  8  Datenbit  umstel¬ 
len. 

Der  große  Terminal-Spei¬ 
cher  wurde  unter  anderem 
dadurch  erreicht,  daß  der 
gesamte  vom  ROM  überla¬ 
gerte  RAM  genutzt  wird,  in¬ 
dem  das  Betriebssystem 
beim  Zugriff  auf  den  RAM 
mit  einer  Assembler-Routine 
abgeschaltet  wird.  Weitere 
Maschinen-Routinen  wer¬ 
den  für  das  Laden  von  Daten 
in  den  Terminal-Speicher 
und  für  das  Listen  des  Direc- 
torys  benutzt.  Sie  werden  al¬ 
le  über  DATA-Zeilen  im  La¬ 
der  eingelesen,  so  daß  sie 
nachher  keinen  Speicher¬ 
platz  mehr  verbrauchen. 

Bei  der  Programm-Über¬ 
tragung  nach  der  »Teleterm- 
Norm«  können  natürlich  die 
selben  Fehler  auftreten  wie 
bei  Teleterm,  nämlich  dann, 
wenn  sich  zwei  Übertra¬ 
gungsfehler  in  einem  Block 
gegenseitig  aufheben,  Trotz¬ 
dem  ist  die  Übertragungs- 
Routine  etwas  sicherer  als 
bei  Teleterm.  Am  Anfang 
der  Übertragung  kann  man 
die  Länge  einer  Übertra- 
gungseinheit  einstellen  (bei 


Teleterm:  »Programmsatz¬ 

länge«).  Bei  einer  guten  Ver¬ 
bindung  kann  sie  ruhig  auf 
256  Byte  gestellt  werden;  die 
Überm  •  ng  ist  dann  etwas 
schneller.« 

Ladeprogramm 

Nachdem  man  den  Lader 
geladen  und  mit  RUN  gestar¬ 
tet  hat,  werden  die  Funk- 
tionstasten-Belegungen  von 
der  Diskette  geladen,  soweit 
sie  schon  vorhanden  sind. 
Ansonsten  wird  der  F-Tasten- 
Speicher  gelöscht.  Danach 
erscheint  ein  Menü,  in  dem 
man  zwischen  dem  Termi¬ 
nal-Programm  und  dem  Edi¬ 
tor  wählen  kann.  Wenn  man  1 
oder  2  gedrückt  hat,  wird 
das  jeweilige  Programm  ge¬ 
laden  und  automatisch  ge¬ 
startet. 

In  die  ersten  Programm¬ 
zeilen  des  Laders  kann  man 
individuelle  Parameter 

schreiben.  So  kann  man  in 
Zeile  90  Hintergrund-  und 
Rahmenfarbe  eingeben 

(Schriftfarbe  muß  schwarz 
bleiben),  in  Zeile  110  den 
Preis  für  eine  Telefon- 
Gebühreneinheit  ändern 
und  in  den  Zeilen  30  und  40 
kann  man  Parameter  zur 
Druckeranpassung  einge¬ 
ben  (Sekundäradresse  und 
maximal  fünf  sonstige  Para¬ 
meter). 

In  den  Zeilen  350  bis  580 
werden  die  Assembler-Rou¬ 


tinen  für  Speicherzugriff, 
LOAD  und  Directory  einge¬ 
lesen. 

Die  vorhandenen  Druk- 
kerparameter  sind  für  einen 
Epson-Drucker  mit  Görlitz- 
Interface  zugeschnitten  (Se¬ 
kundäradresse:  0,  Parame¬ 
ter:  »chr$(27)  T«,  also  27,  32, 
84). 

Terminalprogramm 

Das  Terminal-Programm 
muß  mit  dem  Lader  geladen 
werden,  damit  es  funktions¬ 
tüchtig  ist.  Im  folgenden  wer¬ 
den  die  einzelnen  Menü¬ 
punkte  erklärt: 

1.  Kommunizieren 

Nachdem  man  1  gedrückt 
hat,  muß  man  eingeben,  ob 
die  Gegenstelle  mit  oder  oh¬ 
ne  Echo  arbeitet.  Danach 
wird  man  gefragt,  ob  man  ei¬ 
ne  Berechnung  der  Telefon¬ 
gebühren  wünscht.  Wenn  ja, 
dann  müssen  die  Gebühren¬ 
zone  und  der  Gebührentarif 
(vor  oder  nach  18  Uhr  plus 
Wochenende)  eingegeben 
werden.  Nachdem  man  die 
Verbindung  hergestellt  hat 
(was  ja  durchaus  etwas  län¬ 
ger  dauern  kann!),  startet 
man  den  Termmal-Modus 
mit  einem  Tastendruck  (die 
—Taste  führt  ins  Menü  zu¬ 
rück).  Im  Terminal-Modus 
wird  nun  eine  Help-Liste  aus¬ 
gegeben,  in  der  alle  Funktio¬ 
nen  aufgeführt  sind,  die  man 
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über  »Commodore«-Taste  an¬ 
sprechen  kann.  »CommodoreS« 
bewirkt,  daß  alle  empfange¬ 
nen  Zeichen  in  den  Terminal- 
Speicher  geschrieben  wer¬ 
den,  der  eine  Größe  von 
46000  Byte  hat.  Auf  ein  auto¬ 
matisches  Abspeichern  ha¬ 
be  ich  wegen  der  Time-Out- 
Regelung  der  meisten  Mail¬ 
boxen  verzichtet.  Außerdem 
muß  man  schon  ganz  schön 
lange  telefonieren,  um  den 
Speicher  voll  zu  bekommen. 
»Commodore  E«  beendet  den 
Speichervorgang  wieder. 
»Commodore  A«  bewirkt,  daß 
der  Inhalt  des  Terminal- 
Speichers  ausgesendet 
wird.  So  kann  man  zum  Bei¬ 
spiel  vorher  abgefaßte  Brie¬ 
fe  übertragen.  Abbruch  mit 
Auch  Basic-Programme, 
die  in  einer  Sequenz  vorlie¬ 
gen,  können  so  übertragen 
werden.  Diese  Prozedur  rea¬ 
giert  auf  die  Steuerzeichen 
CTRL  —  S  =  Stop 
CTRL  -  Q  =  Weiter 
CTRL  -  X  =  Abbruch 
»Commodore  L«  löscht  den  Ter¬ 
minal-Speicher. 

»Commodore  B«  gibt  an,  wievie¬ 
le  Bytes  im  Speicher  schon 
belegt  und  wieviele  noch  frei 
sind. 

»Commodore  G«  zeigt  die  Zeit 
und  die  Gebühren  an,  die 
schon  »vertelefoniert«  sind. 
»Commodore  H«  gibt  die  ange¬ 
zeigte  Help-Liste  nochmals 
aus. 

»Commodore  P«  bietet  eine  Be¬ 
sonderheit:  In  diesem  Mo¬ 
dus  ist  es  möglich  Basic-  und 
Maschinen-Programme  zu 
übertragen  und  zwar  nach 
der  »TELETERM-Norm«. 


Man  kann  sich  jetzt  also  Pro¬ 
gramme  aus  Mailboxen  ho¬ 
len,  die  eine  Teleterm-Box 
besitzen  (zum  Beispiel  K.I.S., 
R.T.C.,  MHB  etc.)  oder  man 
kann  Programme  unter 
Freunden  und  Bekannten 
austauschen,  ohne  Teleterm 
benutzen  zu  müssen.  Es  ist  so 
eine  weitgehend  fehlerlose 
Übertragung  von  Program¬ 
men  möglich. 

Statt  »Commodore  £«  und 
»1«  bei  Teleterm  muß  man 
hier  »Commodore  P«  und  »E« 
für  empfangen  drücken. 
»Commodore  t «  unterbricht 
den  Terminal-Modus,  das 
heißt  man  kann  jetzt  alle  Me¬ 
nüpunkte  anwählen,  ohne 
daß  die  eingestellten  Para¬ 
meter  und  die  Gebühren 
verloren  gehen.  Man  kann  so 
also  auch  während  man  mit 
einer  Mailbox  kommuniziert, 
die  anderen  Menüpunkte 
ausführen. 

»Commodore  — «  beendet  den 
Terminal-Modus.  Hier  wer¬ 
den  jetzt  die  Zeit  und  die  Ge¬ 
bühren  angezeigt  und  abge¬ 
speichert,  und  dann  der  Ge¬ 
samtbetrag  angezeig. 

2.  Daten  speichern 

Hier  wird  der  Inhalt  des 
Terminal-Speichers  auf  Dis¬ 
kette  gespeichert.  Man  muß 
dafür  den  Namen  angeben, 
unter  dem  abgespeichert 
werden  soll. 

RETURN  bewirkt  den 
Rücksprung  ins  Menüs. 

3.  Entspricht  Punkt  2,  nur  daß 
hier  geladen  wird. 

4.  Daten  ausgeben 

Unter  diesem  Menüpunkt 
wird  der  Inhalt  des  Terminal- 


Speichers  auf  dem  Bild¬ 
schirm  oder  dem  Drucker 
ausgegeben. 

Fl  =  Ausgabe  auf  dem  Bild¬ 
schirm 

F3  =  Ausgabe  auf  dem 
Drucker 

F5  =  Bildschirm-Hardcopy 
—  —  Menü 

SPACE  hält  die  Ausgabe 
an.  Sie  kann  dann  mit  einer 
beliebigen  Taste  fortgesetzt 
werden. 

5.  Funktionstasten 

Hier  kann  man  sich  eine 
Übersicht  der  F-Tasten-Bele- 
gungen  ausgeben  lassen 
und  sie  gegebenenfalls  än¬ 
dern  und  abspeichern. 

6.  Parameter  ändern 

Die  Baudrate  und  die  An¬ 
zahl  der  Daten-  und  Stop-Bits 
können  hier  verändert  wer¬ 
den. 

7.  Gebühren  ansehen 
Wenn  man  mit  der  Gebüh- 

ren-Berechnung  arbeitet, 
kann  man  hier  den  abge¬ 
speicherten  Gesamtbetrag 
abrufen  und  die  Gebühren 
am  Ablesetag  löschen. 

8.  DiskL-Uohle 

Unter  diesem  Punkt  kann 
man  Befehle  wie  zum  Bei¬ 
spiel  Validate,  Scratch,  Rena- 
me  etc.  der  Floppy  übermit¬ 
teln.  Mit  dem  Dollarzeichen 
kann  man  das  Inhaltsver¬ 
zeichnis  auflisten. 

Editor-Programm 

Mit  dem  Editor  kann  man 
Anzeigen  oder  Briefe,  die 
man  in  Mailboxen  schreiben 


will,  erstellen.  Der  Text  wird 
nach  dem  Erstellen  sofort  in 
den  Terminal-Speicher  ge¬ 
schrieben,  so  daß  er  nicht 
erst  auf  Diskette  gespeichert 
zu  werden  braucht,  bevor 
man  das  Terminal-Pro¬ 
gramm  lädt.  Der  Speicher¬ 
platz  für  Variablen  ist  deswe¬ 
gen  nur  so  groß,  daß  der  Edi¬ 
tor  maximal  100  Zeilen  auf¬ 
nehmen  kann. 

Wenn  man  den  Menü¬ 
punkt  1  anwählt,  wird  man  zu¬ 
erst  gefragt,  ob  der  Termi¬ 
nal-Speicher  gelöscht  wer¬ 
den  soll.  Antwortet  man  mit 
»ja«,  so  kann  man  einen  neu¬ 
en  Text  schreiben.  Anson¬ 
sten  wird  der  Inhalt  des 
Terminal-Speichers  in  den 
Editor  übertragen.  Hier 
kann  man  nun  seinen  Text 
eingeben  und  mit  den  Cur¬ 
sor-Tasten  frei  editieren. 
Man  muß  allerdings  in  jeder 
Zeile,  die  übernommen  wer¬ 
den  soll,  RETURN  drücken. 
Wenn  der  Cursor  am  Anfang 
einer  Zeile  steht,  kann  man 
vor  dieser  Zeile  mit  CTRL-I 
(Insert)  eine  Zeile  einfügen 
und  mit  CTRL-D  (Delete) 
kann  man  die  Zeile  löschen. 
Wenn  die  maximale  Anzahl 
von  100  Zeilen  erreicht  ist, 
wechselt  die  Rahmenfarbe 
in  Rot  und  es  wird  keine  wei¬ 
tere  Zeile  mehr  übernom¬ 
men. 

Die  —Taste  führt  ms  Menü 
zurück,  nachdem  der  Text  in 
den  Terminal-Speicher  ge¬ 
schrieben  wurde. 

Die  anderen  Menüpunkte 
entsprechen  denen  des 
Terminal-Programms. 

(Peter  Falk/rg) 


10  REM  WRITTEN  BY  PETER  FALK  <255? 

20  :  <078> 

30  POKE  B40,0:REM  SEKUNDAER-ADREBSE  <076> 

40  POKE  841 ,27: POKE  842,32:P0KE  843,84:POK 
E  044  f 01  POKE  84S,0:REM  DRUCKER-PARAMETE 
R  <0597 

50  :  <108> 

60  POKE  55,79:  POKE  56, 60:  REM  SPEICHER-  <240> 

70  PDKE  643,79: POKE  644,60:REM  GRENZE  <171> 

00  CLR  :  RCM  AUF  15439  <150 

90  POKE  B3B,6:P0KE  839,1S:REM  FARBEN  <116> 

100  POKE  53280, PEEK  (838)  :  POKE  S3281,PEEK(B 

39)  '  <150? 

110  G7.=  100*0. 23: POKE  B28,S7.:REM  GEBUEHREN- 

EINHEIT  <040> 

120  PR I NT " «BLACK , CLR , DOWN 5 “ ; CHR* ( 1 4)  ;  CHR*  < 

B>  <204> 

130  GOSUB  350:  GOSUB  600:  POKE  650,128  <055> 

140  POKE  832, 80: REM  PUFFERANFANG  <144> 

150  POKE  833, 60: REM  BEI  15440  <244> 

160  PRINT" (CLR, 2D0WN.5SPACE >************** 

**«*»*»*.****»***"  <072> 

170  PRINT"  C5SPACE>*C29SPACE>*''  <219> 

180  PRINT"  <5SPACE7<<3SPACE7S  £  P  £  R.  -  I  £ 

£  fl(2SPACE?64<3SPACE>*"  <195> 

'7YYYWYY  (oSPACE)*"  <09ö> 

200  PRINT"  <5SPACE>*<29SPACEJ*"  <249> 

210  PRINT"  C5SPACE7*<4SPACE  STRITTEN  BY  £ETE 

R  EALK (4SPACE1*"  <233> 

220  PRINT"  <5SPACE?*<29SPACE?*"  <013> 


230  PRINT"  <5SPACE>K6SPACE>IN  THE  i£AR  19S 

5<7SPACE>*"  <023> 

240  PRINT" <5SPACE>*(29SPACE>*"  <033> 

250  PRINT" <SSPACE7************************ 

*  ****** ”  <237> 

260  PRINT" <200WN,8SPACE?<1>  -  TERM1NALPROG 

RAMMCDOWN7"  <005> 

270  PRINT" C8SPACE> (2)  -  £DITOR (2DDWN) "  <005> 

280  PRINT" <0SPACE>(0>  -  PROGRAMM  BEENDEN"  <I22> 

290  GET  Q*:IF  Q*O"0"AND  Q*<?"1"AND  Q*<>"2 

"THEN  290  <136> 

300  IF  Q*="0"THEN  END  <122> 

310  PRINT" <2DOWN,14SPACE>iDADING..."  <062? 

320  IF  Q$=" 1 "THEN  LOAD "TERMINAL" ,8  <166> 

330  IF  Q*="2"THEN  LOAD "EDI TÜR" ,8  <028> 

340  i  <143> 

350  REM  *  PEEK+POKE  FUER  UEBERL.  RAM  *  <192> 

360  DATA  165,20,72,165,21,72,32,247,183,12 

0,165,1,41,252, 133,1,160,0,177,20  <139> 

370  DATA  168,165,1,9,3,133,1,88,104,133,21 

,104,133,20,76, 162,179,32,253,174  <169> 

380  DATA  32,138,173,32,247,183,32,253,174, 

32,158, 183, 120, 169, S2, 133, 1 , 138, 160  <033> 

390  DATA  0,145, 20, 169, 55, 133,1, SB, 96  <071> 

400  FOR  1=698  TD  765: READ  A:POKE  I,A:NEXT  <063> 

410  POKE  785, 186:  POKE  786,2  <117? 

420  :  <223> 

430  REM  *  LOAD  *  <178> 

440  DATA  160,0,169,8,32,180,255,169,98,32, 

150,255,173,64,3,  133,174,173,65  <166> 

450  DATA  3,133,175,32,19,238,145,174,230,1 

74,208,2,230,175,169,208,197,175  <226> 

460  DATA  208,8,  169 ,0,  133,  174,  169,224 , 133,  1 

75,165,175,240,4,36,144,80,223  <129> 

470  DATA  165,174,141,64,3,165,175,141,65,3 

,32,171,255,96,0  <211> 

480  FOR  1=848  TO  91 7: READ  A: POKE  I,A:NEXT  <139? 


490  :  <037? 

500  REM  *  DIRECTORY  *  <1417 

510  DATA  169,36,133,251,169,251,133,187,16 

9,0,133,188, 169, 1 ,133,183, 169, B  <2497 

520  DATA  133,186,169,96,133,185,32,213,243 

, 165,186,32,180,255, 165, 1B5,S2, 150  <145> 

530  DATA  255,169,0,133,144,160,3,132,251,3 

2, 165,255, 133,252,164, 144,208,47  <0297 

540  DATA  32, 16S, 255, 164, 144, 208, 40, 164, 251 

,136, 20B ,  233 ,166, 252 , 32 , 205 , 1 B9  <0037 

550  DATA  169,32,32,210,255,32,165,255,166, 

144,208,18,170,240,6,32,210,255  <2547 

560  DATA  76,226,3,169,13,32,210,255,160,2, 

208,198,32,66,246,96  <2527 

570  FOR  1=9 18  TO  1022:READ  A: PDKE  I,A:NEXT  <0087 
580  RETURN  <2127 

590  :  <1387 

600  REM  *  F-TASTEN  LADEN  *  <2277 

610  OPEN  1 ,8, 2, “F-TASTEN, S,R"  <1657 

620  OPEN  2,8,15  <0537 

630  INPUT#2,F  <1607 

640  IF  F=0  THEN  PRINT" (3D0WN,2SPACE>£IE  EU 

NKT IONSTASTEN  WERDEN  GELADEN.  ••  <0497 

650  PRINT"<3D0WN,12SPACEJ£ITTE  WARTEN..."  <2397 
660  IF  F=0  THEN  700  <1357 

670  FOK  S=34000  TO  345=9  <2077 

680  SYS  735, S, 13: NEXT  <1787 

690  GOTO  720  <2147 

700.  FOR  S=54000  TO  54559  <2377 

710  GETS1,A*:SYS  735, S ,ASC <A*) : NEXT  <1687 

720  CLOSE  1 : CLOSE  2  <175? 

730  RETURN  <106? 


Listing  »Lader«.  Bitte  beachten  Sie 
die  Eingabehinweise  auf  Seite  77. 
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0 

10  REM  WRITTEN  BV  PETER  FALK 

<25S> 

1020  FOR  Z-l  TO  E 

<  166> 

2000  RETURN 

<150> 

20  REM  B28=PRE [ S  EINER  EINHEIT 

<126> 

1030  GET«1,B*(Z):IF  B*«Z)=""  THEN  BT(Z)=CH 

2090  : 

<108> 

30  POKE  829,32: REM  7  DATENBITS 

<135> 

Rt(0) 

<  186  > 

2100  REM  .  UMFORMEN/SENDEN  » 

<116> 

40  POKE  830,6:  REM  300  BAUD 

<052> 

1040  IF  ST=0  THEN  NEXT  Z 

<  1  71  > 

2110  E»0:D=ASC(B«>: IF  D/64  AND  D<91  THEN 

50  POKE  831 ,0: REM  1  STOPBIT 

<224> 

1050  F-ST:IF  Z7E  THEN  Z=E 

<202> 

»32 

<081  > 

60  REM  832, 80: REM  ILO)  PUFFERANFANG 

<  121  > 

1060  FOR  W*=  1  TO  1000:  NEXT 

<004  > 

2120  IF  D=20  THEN  D-8 

<008> 

70  REM  833, 60: REM  (HI)  BEI  15440 

<21 1  > 

1070  SU=0:GET#2,E* 

<129> 

<131> 

00  REM  B34-GEGENSTELLE  DUPLEX 

<  1  08  > 

1080  FOR  X=l  TO  Z 

<246  > 

2140  PRIN!*2,CMR*'(D>  ?  :  IF  NOT  DP  THEN  POKE 

90  REM  B35=GEBUEHREN  JA/NEIN 

<063> 

1090  PRINTK2 ,  B*  ( X  )  ; 

<  134> 

646 ,0: PRI NT  Bt; 

<  1 60> 

100  REM  836=GEBUEHREN~Z0NE 

<  207  > 

1100  SU-SUrASC  ( 8* (X) ) 

<034> 

2150  RETURN 

<252> 

110  REM  S37-GEBUEHREN-TARIF 

<  020  > 

1110  NEXT  X 

<052  > 

<178> 

120  REM  830-RAMMEN-FARBE 

<047> 

1120  IF  PEEK < 669 ><>PEEK( 670)  THEN  1120 

<038  > 

2170  REM  •  UMFORMEN/ AUSGEBEN  * 

<071> 

130  REM  839=H INTERGRUND-FARBE 

<201  > 

1130  POKE  668, PEEK (667) 

<  1 39  > 

21B0  E-0lD»ASC(Cl) : IF  D>64  AND  D<91  THEN 

140  REM  640-B45=DRUCKER-PARAMETER 

<  1 60> 

1140  GET  Q*:IF  PEEK<667> -PEEK (668)  AND  Q*< 

=32 

<152> 

130  i 

<20B> 

THEN  1140 

<B10> 

2190  IF  D>96  AND  D<123  THEN  E=-3Z 

<11I> 

160  REM  *«  MENUE  *» 

<0öi  > 

1150  IF  0*="H"  THEN  1360 

2200  IF  D»B  THEN  D=20 

<088> 

170  PR  1  NT :  PR I NT "  CCLR ,  BLACK , 2D0WN , 7SPACE>’pp 

1160  GEI#2,L0t:IF  L0*=""  THEN  LO*=CHR*(0> 
1170  GET  Q*:IF  PEEK (667) =PEEK (668)  AND  QS< 
-  >” H"  THEN  1170 

<071  > 

2210  D=D+E 

2220  POKE  646, 0: POKE  199,0:PRINT  CHR*(D) ; 
2230  RETURN 

<21 1> 

180  PRINT"  (7SPACE,RVS0N,2SPACE>**  TL  Kr.  IHR 

<043> 

<076> 

— MEMUC  »• C2SPACE>" 

<206> 

1180  IF  0*="*-"  THEN  1360 

<102> 

2240  : 

<  002 > 

(2D0WN) “ 

<229> 

1200  SE=ASC(L0*)r2S6*ASC(HI*> 

2260  E«ASC(B*> 

<0B0> 

200  PRINT”  (7SPACEX1)  -  KOMMUN I  ZIEREN"; A*: 

1210  IF  SE<  7SU  THEN  1300 

<0Q8> 

2270  IF  E-174  AND  SG<  6SS36  THEN  SP—  1 :  POKE 

•'  (DOWN)" 

<241  > 

1220  BY-BY*Z 

<  180) 

53280,2:  GOTO  570 

<113> 

210  PRINT"  (7SPACE)  (2)  -  SÄTEN  SPEICHERND 

1230  PRINT"  DA.  (7SPACE3 " s INT (BY/2S4) +1 ! " (L 

2280  IF  E-1S2  THEN  SG»15440:GOSUB  3970:GOT 

WN  >  “ 

<253> 

EFT).  jUACJC 

<  171  > 

0  570 

<247> 

220  PRINT"  C7SPACE)  (3)  -  SÄTEN  LADEN  (DOWN] 

“  <203> 

1240  IF  FOB  THEN  1360 

<  178> 

2290  IF  E»I77  THEN  SP-0:POKE  53230 , PEEK ( 83 

230  PRINT"  C7SPACE)  (4)  -  SÄTEN  AUSGEBER  (DOW 

8) : GOTO  570 

<  091  > 

N>" 

<188> 

2300  IF  E=176  AND  SG>15440  THEN  GOSUB  1930 

240  PRINT"  (7SPACE)  (5)  -  £UNKT  I ONS  TASTEN  (DO 

: GOTO  570 

<124> 

WN)“ 

<  161  > 

2310  IF  E-16S  THEN  GOSUB  3520:GOTO  570 

<138> 

250  PRINT" (7SPACE) (61  -  PARAMETER (DOWN) “ 

<  1 89  > 

2320  IF  E-191  THEN  GOSUB  4050: GOTO  370 

<  146> 

260  PRINT"<7SPACE><7>  -  G£BUEHREN (DOWN)" 

<  189> 

1290  * 

2330  IF  E= 1 75  THEN  740 

<132> 

270  PRINT"  (7SPACE)  <01  -  SI SKBEFEHLE (DCWN 1 

'  <073> 

234E  IF  E-95  THEN  POKE  '32G3.PEEK (838) :GCS 

280  PRINT"  (7SPACE)  <9)  -  .EDITOR  LADEN" 

<  088> 

UB  3970: GOSUB  3S20:CLOSE  2:WAIT  190,1 

290  GET  O*:  IF  Q*=MM  THEN  290 

<  171  > 

1320  GET  Q«:IF  PEEK (667) «PEEK (660)  AND  Q*< 

: GOTO  160 

<  155> 

300  IF  04 -" 1 "  AND  A*="  (fCRTSETZUNG) "  THEN 

> " H"  THEN  1320 

<  191  > 

2350  IF  E=222  THEN  POKE  33280 . PEEK ( 838)  :  GC 

A*=" " : GOTO  480 

<251> 

1330  FOR  W-l  TO  1000: NEXT 

<0 19> 

SUB  3970:  CLOSE  2:A$=" (FORTSETZUNG) “:G 

310  QN  VAL(OJ)  GOTO  360,2390,2610,2770,411 

1340  IF  Q*<  THEN  1070 

<  183> 

OTO  160 

<066> 

0,3070,3850,4810,340 

<000  > 

1350  i 

<133> 

2360  IF  E* 100  THEN  GOSUB  4990: GOTO  570 

<  1  97  > 

320  IF  Q4="0"  THEN  END 

<142> 

1360  IF  Q*="H"  THEN  PRINT" (DOWN) RBBKUCh  ' 

2370  GOTO  570 

<112> 

330  GOTO  290 

<  1  1  1  > 

DÜUN > " 

2300  s 

<  143> 

340  LOAD*’EDITOR"  ,8 

<087> 

1370  PRINT#2,CHR*(3)i 

<219> 

2390  REM  **»  DATEN  SPEICHERN  *** 

<247> 

330  : 

<153> 

1380  PRINT” (DOWN)£NDE  DER  ÜEBERTRAGUNG." 

<007  > 

2400  PRINT" <CLR>" 

<217> 

360  REM  ***  KOMMUNIZIEREN  »»» 

<225> 

1390  CLOSE  1: CLOSE  15: CLOSE  2 

<  1 44  > 

2410  GOSUB  4030 

<  199  > 

370  INPUT" (CLR,2D0WN,2SPACE)C£GENSTELLE(SP 

1400  PRINT"  (2D0WN, 11  SPACE >IASTE  DRUECKEN  1 

2420  IF  SG“ 15440  THEN  160 

<144> 

ACE  ,  RVSONUKRVOFF  >  ALB-  /  (SPACE  , R VSON  >i ' 

2430  DN*="" 

<051. ' 

(R VOFF )OLL DUPLEX (3SPACE) V (3LEFT  > " : Qt 

<07 1  > 

1410  WA 1 T  1 9B , 255 : POKE  198,0 

<0B2> 

2440  INPUT" (2D0WN)aATEINAME  " ; ONi 

<  1 17> 

<  003  > 

2430  IF  DN*=" "  THEN  160 

<  0 1  6> 

390  IF  Q*-"H"  THEN  POKE  834,0 

<254> 

1430  s 

2460  OPEN  l,0,2,DNft-",S,W" 

<009  > 

400  PRINT"  <2D0WN ,  2SPACE  >£EBUEHR  EN-ÄRECHNU 

1440  REM  *  EMPFANGEN  * 

<0-/5> 

2470  GOSUB  4930 

<012> 

NG  ( J/N) 7  <DDWN  > “ 

<155> 

1450  OPEN  1  ,B,2,DNtr",P,W" 

2480  PRINTOl,CHRt(USR(lS440) ) j 

<  007  > 

410  GET  Q*: IF  0*<>”J"  AND  0*<>"N"  THEN  410  <051> 

1460  GOSUB  4930 

<022> 

2490  IF  STO0  THEN  2570 

<254> 

<056> 

1470  IF  VAL(8*><>0  THEN  1800 

2300  CMD  1:A- 15441 

<199> 

430  IF  Q*="J"  THEN  POKE  835,1:G0SUB  3390 

<192> 

1480  POKE  668, PEEK ( 667 ): POKE  198,0 

<  185> 

2510  E=SG: IF  E  >53247  THEN  £=53247 

<  203 > 

1490  PR1NT#2,CHR*<2>  ; 

<002  > 

2520  FOR  SZ“A  TO  E 

<235> 

■  ■ 

1500  GE ' »2, e*: GET  0« 

<188> 

2530  PRINT  CHRt(USR(SZ) >1 

<140- 

450  GET  Qt: IF  0*=“"  THEN  450 

<073> 

1510  FOR  W=1  TO  100: NEXT 

<  151  > 

2540  NEXT 

<  1 19> 

<096> 

1520  IF  £*=■""  AND  0«)".H-  TH:  •  190 

1530  IF  Q »="-“  THEN  1800 

2550  IF  E<SG  THEN  A=57344:  E=SG: GOTO  2520 

:020> 

470  TI*= "000000" 

<174> 

<196> 

2560  PRINT  * 1  ,  “  "  ; 

<126> 

480  BAUD=PEEK (830)  :  DB=PEEK<829> : SB=PEEK (63 

1540  PRINT“  (DOWNISEGINN  DER  ÜEBERTRAGUNG. 

2570  CLOSE  1: CLOSE  15 

<  037  > 

<  181  > 

DOWN)” 

2580  IF  VAL (B* ) <  >0  THEN  WAIT  198,255 

490  OPEN  2,2,0,CHR* CBAUD*D9*SB> ^CHR»<0> :GE 

1550  FOR  W-l  TO  100: NEXT 

<192> 

2590  GOTO  160 

•'.072.' 

1560  GET«2,E*:P0KE  668, PEEK (667)  :  BY=0 

2600  : 

<  1  00  > 

500  PRINT" CCLR)"; 

<160> 

1570  SU-0:Z=1 

<041  > 

2610  REM  DATEN  LADEN 

<  151  > 

<098> 

1580  GET  Q*:1F  PEEK (667) »PEEK (668)  AND  Q*< 

2620  DN»=”" 

<242> 

THEN  1580 

<204> 

2630  INPUT" (CLR, 3DOWN>aoTEI NAME  "sDNS 

<216> 

530  DP=-PEEK (834) 

<  183> 

1590  IF  0*="*-"  THEN  1800 

<001  > 

2640  IF  DNS=" "  THEN  160 

<207> 

540  GB=-P£EK<835> 

<  183> 

1600  AT=TI 

<042  > 

2650  SG= 15440 

<174; 

550  üfcT»2,US:PRINI 

<  1 46> 

1610  IF  TI-AT>30  THEN  1660 

<064  > 

2660  OPEN  l,B,2,DN*»",S,R" 

<20S> 

560  : 

<  1  00  > 

1620  IF  PEEK (667) »PEEK (668)  THEN  1610 

<  1 15> 

2670  GOSUB  4930 

<213> 

570  GOSUB  4/00 

<  1  40  > 

1630  GET«2,B«<Z> : IF  B*(Z)="”  THEN  B*(Z)»CH 

2680  IF  VAL(B*)O0  THEN  2720 

<  143> 

580  GET  B*: IF  B*=""  THEN  6S0 

<  1 76> 

R«  (0) 

<02 1> 

2690  POKE  144,0: POKE  832,B0:POKE  833,60 

<027  > 

590  GOSUB  4760 

<  1  74> 

1640  SU«SU+ASC(D*<Z> > :  Z»Z*1 

<  109> 

2/00  SYS  848: REM  LOAD-ROUTINE 

:b20> 

600  IF  ASC (B*>  >132  AND  ASC(8*)<141  THEN  GO 

1650  IF  Z<258  THEN  1600 

<029> 

27 1  0  SG=PEEK  < 832 )  -»PEEK  ( 833 )  *256- 1 

<02S> 

SUB  4480: GOTO  570 

<129> 

1660  HI=INT<SU/256):L0=SU-256*HI 

<113> 

2720  CLOSE  1: CLOSE  15 

<1B7> 

610  IF  PEEK (653)  =2  THEN  2250 

<244> 

1670  PRINTtt2,CHR*(L0> ;CHR* (HI) ; 

<0B4> 

2/30  IF  SG«=-1  THEN  PRINT"  <2D0WN JÜCHTUNG,  P 

620  GOSUB  2100 

<  190> 

1680  GET  Q*:IF  PEEK (667) »PEEK (668)  AND  Qt< 

UFFER  VOLL  1 ( 1 (2D0WN ) " : SG=6S535 

<09 1> 

630  : 

<  1  7Q> 

THCN  1 6B0 

<  049  > 

2740  BOSUB  3970: POKE  198,0:WAIT  198,255 

<035> 

640  GOSUB  4/00 

<218> 

1690  IF  THEN  1000 

<101  > 

2750  GOTO  16« 

<732  > 

650  IF  PEEK ( 667 > »PEEK ( 66B )  THEN  580 

<122> 

1700  GET»2,E* 

<053> 

2760  : 

<012) 

660  GOSUB  4760 

<244> 

1710  IF  E*OCHR*(2)AND  E*<  >CHR*<3)  THEN  187 

2770  REM  DATEN  AUSGEBEN  »** 

<029) 

670  GET#2,C*:IF  C*=""  THEN  C*=CHR*<0) 

<003> 

0 

<148> 

2780  PRINT"  <CLR>" 

<086> 

6B0  GOSUB  2170 

<001  > 

1720  PRINT#2,CHR* (4)  ; 

<059> 

2790  GOSUB  4030 

<  068  > 

690  IF  NOT  SP  THEN  570 

<205> 

1730  FOR  X=1  TO  Z 

<  130> 

2800  IF  SG= 15440  THEN  160 

<013> 

700  POKE  SG,D:SG=SG*1: IF  SG=53248  THEN  SG 

1740  PRINT#1,B*(X) [ 

<017> 

2810  PRINT"  (DOWN) '£,1  ’  =  flILDSCHIRM" 

<213> 

57344 

<  107> 

1750  NEXT  X 

<182> 

2820  PRINT" ’CS'  »  flRUCKER" 

<000: 

710  IF  BG=65536  THEN  POKE  53280, PEEK (838) 

1760  GET»2,C* 

2830  PRINT"  £5'  =  HARDCOPY (DOWN) " 

<103) 

SP=0:SG-65533 

<023> 

1770  BY-BY+Z 

2840  WAIT  198,255 

<  031  > 

720  GOTO  570 

<247> 

1780  PRINT"  PA. (7SPACE5": INT <BY/254)+lj " (L 

2830  D=0 

<083) 

730  : 

<022> 

EFT).  .m.O-CA- 

2060  FOR  SZ-15440  TO  SG 

<0B3> 

740  REM  •  PROGRAMM-UEBERTRAGUNS  * 

<230> 

1790  IF  E*=CHR*(2)  THEN  1570 

2870  IF  PEEK  (198)00  THEN  2980 

<143> 

750  GOSUB  3970: CLOSE  2:CLR 

<  050  > 

1800  IF  THEN  PRINT"  (DOWN>assEÜ£ü  !< 

2880  C*=CHR*(USR(SZ)1 

<049> 

760  BAUD=PEEK (830) 

<  1 1B> 

DOWN>" 

2890  PRINT  C«; 

<144> 

770  OPEN  2,2,0,CHR*(BAUD)7CHR*(0):GET*2,Q*  <179> 

1810  PRINT" (DOWN >£NDE  DER  ÜEBERTRAGUNG." 

<  183> 

2900  IF  D  THEN  PRINT#1,C*5 

<  1 00  > 

780  INPUT" (CLR.3DOWN)PROGRAMM-HAME: DNS: 

[ 

1820  CLOSE  1: CLOSE  15: CLOSE  2 

<064  > 

<i00> 

F  DN*=""  THEN  PR INT: CLOSE  Z:GOTO  480 

<  152> 

1830  PRINT" (2DOUN.11SPOCE>IASTE  DRUECKEN  • 

<162) 

790  DIM  B*(250) 

<245> 

2930  CLOSE  1 : POKE  53280, PEEK (838) 

<003? 

B00  OPEN  1  ,B,  15,  "M-W”+CHRS(  7 )  t-CHRS  (28)+CHR 

2940  GET  B*: IF  B*=""  THEN  2940 

<037> 

»<1)+CHR*(1S):  CLOSE  1 

<085> 

1850  GOTO  480 

2950  IF  B*="CFS>"  THEN  GOSUB  5130 

<2S2> 

810  PR  INT“  (2D0WN ,  RVSQN  >  S  (RVOFF  >ENDEN  /(SPA 

1860  : 

<187> 

CE,RVSON)£(RVOFF)MPFANSEN  ?” 

<048> 

1870  REM  ERROR 

<110> 

820  GET  0*:IF  0*<>"S"  AND  B*< >“E"  THEN  820  <212> 

830  IF  Q9a "E "  THEN  1440 

<  236  > 

2990  IF  B*="  "  THEN  WAIT  19B.255:GET  B* 

<  132> 

840  : 

<133> 

1900  POKE  668, PEEK (667) 

3000  IF  B#-"*-"  THEN  CLOSE  I:POKE  53280, PEE 

850  REM  .  SENDEN  • 

<245> 

1910  GOTO  1570 

060  PRINT" C2D0WNJLAENGE  EIMER  ÜEBERTRAGUNG 

1920  : 

<193> 

3010  IF  B*»"CF3>"  AND  D-0  THEN  E=PEEK<840> 

<01  4> 

1930  REM  *  DATEN  SENDEN  * 

<157> 

870  INPUT" IN  fiYTES  <MAX . 256) T3SPACE >80<4LE 

1940  FOR  SZ-1S440  TO  SG 

<  1  S3> 

3020  IF  B*=" (F3) "AND  D“0  THEN  OPEN  1,4,E:F 

1950  GET  QS:  IF  THEN  PR  INT:  RETURN 

<082  > 

1960  IF  Q*=“  -  THEN  GET  E*.IF  E*<>"  “  THEN 

890  OPEN  1 fBt2,DN*^" ,P,R" 

<217> 

1960 

<  163> 

3030  IF  ß*»"CFl>»  THEN  D-0» CLOSE  1 : POKE  53 

900  GOSUB  4930 

<2287 

1970  FOR  W“1  TO  24: NEXT 

<05B> 

910  IF  1/AL  ( 8» >  <  >0  THEN  1360 

<157> 

1980  BET»2,C*:IF  C*=CHR*(24)  THEN  PRINT : RE 

3040  IF  B*="(FS>"  THEN  GOSUB  5130 

920  POKE  668, PEEK  (667):  POKE  198,0 

<135> 

IURN 

<  176> 

3050  GOTO  2080 

<  080 > 

930  PRINTH2,CMR*<2> ; 

<032> 

1990  IF  C*OCHR*(19l  THEN  2010 

<015> 

940  GET#Z,E*:GET  0* 

<  138> 

2000  GET#2,Q*:IF  01K>CHR*(17)  AND  PEEK (203 

3070  REM  **  PARAMETER  ** 

<225) 

950  FOR  W=1  TO  IDBtNEXT 

<101> 

) —64  THEN  2000 

<  3  04  > 

3050  PRINT" <CLR,2DDWN>" 

<  166> 

960  IF  £*=""  AND  Q*<  >"*•"  THEN  930 

<0277 

2010  SYS  62595: REM  CIA'S  SETZEN 

<  1 15> 

<088? 

970  IF  THEN  1360 

<1477 

2020  B*=CHRI(USR(SZ)):GET»2,Ct 

<  1  47> 

980  PRINT" (DOWH)SEGINN  DER  ÜEBERTRAGUNG. (D 

2030  IF  DP  THEN  POKE  646,0:PRINT  Bf; 

<194> 

OWN  >  " 

990  FOR  W=1  TO  250:  NEXT 

<0297 

<1477 

2040  IF  SZ=53247  THEN  SZ-57343 

2050  GOSUB  2100 

<  230  > 
<090> 

Listing  »Terminal«.  Bitte  beachten  Sie 

1000  POKE  680, PEEK (667) :BY-0 

1010  : 

<193> 
<047  > 

2060  IF  D-13  THEN  FOR  W-l  TO  100: NEXT 

2070  NEXT  SZ 

<076> 

<077  > 

bei  der  Eingabe  den  Checksummer  64. 
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3100  REH  BAUDRATE  <2S5> 

3110  1F  PEEK(SJ0)-3  THEN  BAUD-110  <087> 

3120  IF  PEEK(B30>=5  THEN  8AUD=150  <103> 

3130  IF  PEEK (930)  =4»  THEN  BAUD=300  <111> 

3140  IF  PEEK  ( 830 1  =7  THEN  BAUD  =600  <125> 

3150  PRINT  SPC (22)  BAUD;“<UP>"  <0B2J 

3160  INPUT"1 10,  150,300,600  J¥>UD  " ;  BAUD  <245> 

3170  IF  BAUD*  110  THEN  POKE  B30,3  <14S> 

3180  IF  BAUD=1S0  THEN  POKE  830,5  <161> 

3190  IF  BAUD=300  THEN  POKE  830,6  <169> 

3200  IF  BAUD=600  THEN  POKE  830,7  <1B3> 

3210  :  <  208  > 

3220  REM  DATENBITS  <205> 

3230  IF  PEEK (829) =32  THEN  DB=7  <024> 

3240  IF  PEEK (8291=0  THEN  DB=8  <238> 

3250  PRINT“  <3DOWN>" ;  SPC  (20)  DB;"<UP>"  <20B> 

3260  INPUT"7  ODER  8  3ATENBITS  " ; DB  <009> 

3270  IF  DB=7  THEN  POKE  829,32  <062> 

3280  IF  D8=8  THEN  POKE  829,0  <020> 

3290  :  <032> 

3300  REM  STOPBITS  <247 > 

3310  IF  PEEK (831 >=0  THEN  SB=1  <0S3> 

3320  IF  PEEK ( 831 1=1 28  THEN  SB=2  <171> 

3330  PRINT"  <3DOWN>" ;  SPC  ( 19)  SB;“{UP>"  <056> 

3340  INPUT"  1  ODER  2  STOPBITS  ";SB  <0S5> 

3350  IF  SB=1  THEN  POKE  831,0  <  092> 

3360  IF  SB=2  THEN  POKE  831,128  <17B> 

3370  BOTO  160  <087> 

3380  :  <123> 

3390  REM  **  GEBUEHREN  BERECHNEN  ««  <161> 

3400  PRINT"  (.DOWN, 2SPACEJ0.  ZUNL:  flAHGESPRA 

ECH"  < 128> 

3410  PRINT"  <DOWN,2SPACE>I.  JONE:  UNTER  50 

Hfl"  <045> 

3420  PRINT"  {DOWN, 2SPACE52.  JONE:  50  -  100 

&fl"  <104> 

3430  PRINT" {DOWN, 2SPACE53.  ZONE:  UEEER  100 

ifl"  <0B4> 

3440  ZO=4: INPUT“ {DOWN, 2SPACEJZ0NE  0,  1,  2 

ODER  3  ";Z0  <00B> 

3450  IF  ZOO0  AND  ZOOl  AND  ZO<>2  AND  ZOO 

3  THEN  3440  <139> 

3460  INPUT"  <DOWN , 2SPACE , RVSON  )fl(RVOFF>ORMA 
L-  /  {SPACE , RVSONJflCRVOFF  >  I LL IS-IAR IF 
"(Q*  <094> 

3470  IF  Q*<>"N"  AND  Q*<  >“B“  THEN  3460  <019> 

3480  POKE  036, ZO  <178> 

3490  POKE  B37,ASCCO*l  <160> 

3500  RETURN  <071 > 

3510  :  <253> 

3520  IF  NOT  GB  THEN  RETURN  <190> 

3530  ZO=PEEK(836>  <230> 

3540  Q*=CHR*(  PEEK  C  837)  )  <213> 

3550  ZEIT=VAL(LEFT*(TI*,2>  > »3600+VAL (MID* ( 

TI», 3, 21  ) »60+VAL  (RIGHT*  (TI*, 2)  >  <000> 

3560  IF  Q*-"B"  THEN  3620  <159> 

3570  IF  ZO=0  THEN  BETRAG® INT (ZEIT/ 480+ 1 1  »P 

EEK(B2B1/100  <040> 

3580  IF  ZO=l  THEN  BETRAG=1NT ( ZEIT/45+1 ) *PE 


EK(B281/100  <000> 
3590  IF  Z0=2  THEN  BETRAG=INT ( ZEIT/20+I ) *PE 

EK (8281/100  <005> 
3600  IF  Z0=3  THEN  BETRAG--- 1 NT  (  ZEIT/ 12+1 )  *PE 

EK (828)  /  100  <017> 
3610  GOTO  3650  <127> 
3620  IF  70=0  THEN  BETRAG=INT (ZEIT/720+1 >  «P 

EEK ( 828 1 / 1 00  <0B8> 
3630  IF  70=1  THEN  BETRAG® INT ( ZEIT /67. 3+1 1 » 

PEEK (8281/100  <154> 
3640  IF  Z0=2  OR  Z0=3  THEN  BETRAG* I NT ( ZE 1 T/ 

38.  6+1 1  »PEEK  (  828)  /IO0  <226> 
3650  PRINT  <233> 
3660  PRINT"£EIT£2SPACE>=-;TI*  <044> 
3670  PRINT"^TRAG=" s BETRAG;  "£fl"  <179> 
3680  PRINT  <007> 
3690  IF  B*<>"+"  THEN  3B30  <229> 
3700  PR INT" SEBUEHREN  SPEICHERN  (J/N)?"  <108/ 
3710  GET  Q*  <1625 
3720  IF  0*0"J"  AND  Q*<>"N"  THEN  3710  <020> 
3730  IF  04= "N"  THEN  3830  <089> 
3740  OPEN  1,8,2, "GEBUEHREN, S,R"  <062> 
3750  INPUT# l.GESB  <182> 
3760  CLOSE  1  <143> 
3770  G£SB=GESB+BETRAG  <027/ 
3780  OPEN  1  ,8,2,  "@:GEBUEHR£N,S,W"  <229> 
3790  PRINTMl  ,GESB  <242> 
3800  CLOSE  1  <183> 
3610  PRINT" (D0WN)fiESAMT8ETRAQ-";QE3B; "AQ"  <12S> 
3820  WA IT  198,255  <246> 
3830  POKE  19B,1: RETURN  <09B> 
3840  :  <073> 
3850  REM  »»  GEBUEHREN  ANSEHEN  **  <231  > 
3860  PRINT"  {CLR, 2D0WN>"  <181> 
3870  INPUT"£EBUEHREN  LOESCHEN  <3SPACE>N  <3LE 

FT>";Q*  <0495 
3880  IF  R*<  >'  J"  AND  Q*<>“N”  THEN  3870  <1885 
3890  IF  Q*="J"  THEN  OPEN  1 , B,2, "0: GEBUEHRE 

N,S,W":PRINT#1 ,0:CLOSE  1  <165> 
3900  OPEN  1 ,8, 2, "GEBUEHREN, S,R"  <223> 
3910  INPUT#1,GESB  <087> 
3920  CLOSE  1  <048> 
3930  PRINT"  <2DOWN>EESAMTBETRAG=":GESB;  “Jin"  <007> 
3940  WAIT  198, 25S  <111> 
3950  GOTO  160  <157> 
3960  :  <193> 
3970  REM  *«  LO/HI— BERECHNUNG  *«  <049> 
3980  POKE  832,SG-INT( SG/256 >»256  <115> 
3990  POKE  B33, INT (SG/256)  <240) 
4000  GOSUB  4030  <0035 
4010  RETURN  <071 > 
4020  :  <253> 
4030  REM  «»  SPEICHERGRENZE  »»  <0345 
4040  SG=PEEK  (832)  +PEEKI833)  »256  <119> 
4050  IF  SG< 53248  THEN  BY=SG- 15440  <246/ 
4060  IF  SG>57343  THEN  BY=SG- 15440-4095  <123> 
4070  PRINT :  PRINT" BYTES  BELEGT :  " ;  BY  <111> 
4080  PRINT"3YTES  FREI  {2SPACE5  :  "  ;  460Z0-BY  <190> 
4090  RETURN  <1S1> 
4100  :  <078> 
4110  REM  «»  FUNKTIONSTOSTEN  **  <229> 
4120  PRINT"  CCLR T 2 DOWN ,  1 2 SPACE > FU-M.«X1.0XS_ms. 

TER"  <202> 
4130  PR I NT "<  1 2SPACE > YYYYYYYYYYYYYYY «DOWN 3  “  <217> 
4140  FOR  FT=0  TO  7  <020> 
4150  PRINT“  fl"; FT+1 ;  "s  {2SPACE >" ;  CHR*  (341  ;  <071> 


4160  SZ=5O000+70»FT 

4170  E-USR<S2)sIF  E-13  THEN  4210 
4180  PRINT  CHR* (E> ; 

4190  SZ=SZ+1 

4200  GOTO  4170 
4210  PRINT 
4220  NEXT  FT 

4230  PRINT" {DOWN, 12SPACE>flENCERN  (J/Nl?” 

4240  GET  Q* s  IF  Q*<>"J"  AND  0*<>"N"  THEN  42 

40 

4250  IF  QS=”N"  THEN  160 
4260  PRINT" {HOME, 4D0WN>" 

4270  FOR  FT=0  TO  7 

4280  POKE  631 ,29: POKE  198,1 

4290  I NPUT " {6R I GHT  5  "  ;  Q* 

4300  IF  Q*=""  THEN  4370 

4310  0*=LEFT*(Q*,69)+CHR*U3) 

4320  SZ=54000+70»FT 
4330  FOR  SP=1  TO  LEN(Qt) 

4340  SYS  735,SZ,ASC(MID*(Q*,SP,1>) 

4350  SZ=SZ+1 
4360  NEXT  SP 
4370  NEXT  FT 

4380  PRINT" {DOWN, 12SPACE5SPEICHERN  <J/N>?" 
4390  GET  Q*:IF  Q*<>"J"  AND  Q*<>“N"  THEN  43 
90 

4400  IF  Q*=''N"  THEN  160 

4410  OPEN  1 ,8,2, F— TASTEN, S, W" 

4420  FOR  SZ=54000  TO  54559 
4430  PRINT#1,CHR*(USR(SZ>>: 

4440  NEXT  SZ 
4450  CLOSE  1 
4460  GOTO  160 
4470  : 

4480  REM  »»  FUNKTIONSTASTEN  SENDEN  »* 

4490  D=ASC(B*> 

4500  IF  D=133  THEN  FT=0 
4510  IF  D=134  THEN  FT=2 
4520  IF  D=135  THEN  FT=4 
4530  IF  D=136  THEN  FT=6 
4540  IF  D=137  THEN  FT=1 
4550  IF  0*138  THEN  FT=>3 
4560  IF  D=139  THEN  FT=5 
4570  IF  D=140  THEN  FT=7 
4580  SZ=54000+70*FT 
4590  FOR  W=1  TO  30: NEXT 
4600  SYS  62595 
4610  B*=CHR*(USR(SZ>  1 
4620  GET#2,Q* 

4630  IF  DP  THEN  PRINT  B»; 

4640  GOSUB  2100 
4650  SZ-SZ+1 

4660  IF  B*OCHR*(13)  THEN  4590 
4670  POKE  668, PEEK (667) : GET#2, Q* 

4680  RETURN 
4690  : 

4700  REM  *  CURSOR  EIN  » 

4710  E=PEEK ( 209 ) +PEEK (210) »256+PEEK (211) 
4720  IF  PE£K(EX12B  THEN  POKE  E,PEEKCEI  >, 

4730  POKE  54272+E.0 
4740  RETURN 
4750  : 

4760  REM  *  CURSOR  AUS  * 

4770  £=PEEK (209) +PEEK (210) »256+PEEK (21 1 > 
4780  IF  PEEK (E) >1 27  THEN  POKE  E,PFEK(E)-12 
8 

4790  RETURN 
4800  : 

4810  REM  »*  DISKBEFEHLE  «* 

4820  PRINT" {CLR,2D0WN>  *•  =  SIRECTORY {2D0W 
N>" 

4830  PRINT  SPC (13)  CHR* (34 );: POKE  2I2,0:PR 
INT“<UP>" 

4840  POKE  198,1: POKE  631,29 
4850  INPUT  "fll SKBEFEHL  "  ;  B* 

4860  IF  B *="*"  THEN  PRINT:SYS  91S:WAIT  198 
,255:80T0  160 


<255> 

<  148> 
<149> 
<085> 
<205> 
<027> 
<168> 
<088> 

<  I09> 
<044> 
<232> 
<I50> 
<096> 
<249> 
<07 1  > 
<092> 

<  159> 
<046> 
<025> 
<245> 
<062> 
<063> 
<147> 

<010> 

<195> 

<011> 

<222> 

<092> 

<  152> 
<068  > 
<157> 

<  193> 
<021  > 
<014> 
<224> 
<237> 
<250> 
<007> 
<013> 
<026> 
<039> 

<043> 

<164> 

<I25> 

<  178> 
<249  > 

<  181  > 
<040> 
<098> 

<03S> 

<  1  44> 
<062> 
<232> 

<  15B> 
<011> 
<007> 

<255> 
<1 14> 
<036> 
<218> 
<084> 
<067> 

<0S7> 

<  0B6> 
<012> 
<041  > 

<126> 

<224> 

<146> 

<  191  > 

<099> 


4870  OPEN  15,8,15  <020> 
4BB0  PRXNT#1S,B*  <179> 
4890  GOSUB  4950  <140> 
4900  CLOSE  15  <061 > 
4910  WAIT  198, 255: GOTO  160  <151> 
4920  :  < 133> 
4930  REM  ««  DISKSTATUS  *«  <15S> 
4940  OPEN  15,8,15  <090> 
4950  I NPUT #15, 8* , C*  <120> 
4960  PRINT" {2DÜWN5AISKSTATUS:  "B*s "  ";C*i" 

CD0WN5"  <082> 
4970  RETURN  <01 1> 
4980  :  <193> 
4990  REM  »  HELP  *  <157> 
5000  PRINT  <052> 
5010  PRINT"  ’£=  fl" :  SÄTEN  SPEICHERN"  <106> 
5020  PRINT”  £=  £  :  apfcl  LHfcRN  SNDE"  <I50> 
5030  PRINT"'£=  fl  - :  .DATEN  AUSSENDEN"  <H3> 
5040  PRINT"  •£=  £' :  £JJFFER  LOESCHEN"  <141> 
5050  PRINT“ '£=  £':£EBUEHREN"  <014> 
5060  PRINT" '£=  fl' : AYTES  FREI"  <043> 
5070  PRINT"  •£=  P-:£RG-UEBERTRAGUNG“  <183> 
5080  PRINT“  £=  + ' :  AFF— L INE"  <095> 
5090  PRINT" '£=  t ' :  UNTERBRECHUNG"  <020> 
5100  PRINT"  •£=  fl  :flELP"  <213> 
5110  RETURN  < 151 > 
5120  :  <078> 
5130  REM  «  HARDCOPY  «  <091> 
5140  D=0:CLOSE  1 : E=PEEK (840) :OPEN  1,4,E  <020> 
5150  FOR  E=841  TO  845:  PRINTttl ,  CHR*  (PEEK  (E) 

);:NEXT  <034> 
5160  OPEN  2,3  <10B> 
5170  PRINT"  {HOME X;  <113> 
5180  PRINT#1  <025> 
5190  FOR  Z=1  TO  25  <035> 
5200  FOR  SP=1  TO  40  <115> 
5210  GET#2,E*:PRINT#1,E*;  <204> 
5220  NEXT  SP  <157> 
5230  NEXT  Z  <094> 
5240  PRINT#1: CLOSE  1 : CLOSE  2  <108> 
5250  RETURN  <036> 


Listing  »Terminal«  (Schluß) 


10  CLR  <166> 
20  DIM  ZES ( 100)  < 063 > 
30  SG=PEEK  <  832 ) +PEEK ( 833 ) »256  {190> 
40  PRINT:PRINT" {BLACK, CLR, DOWN)“  <012> 

60  PRINT” (BSPACE, RVSON, 2SPACE5»*  EJU.TOH-flE 

RUE  *»{2SPACE>"  < 193> 
70  print"  {sspace  >w??vrrm7VYYYyyrryw{3D 

OWN>"  <0I6> 
80  PRINT"  {7SPACEX1)  -  TEXT  SCHRE  IBEN/EDI  T 

I£REN{DGWN>"  <B13> 
90  PRINT" {7SPACE5 (2)  -  TEXT  SPEICHERN {DOWN 

>"  <094 > 
100  PRINT”  {7SPACEX3)  -  IEXT  L ADE N {DOWN >'*  <044  > 
110  PRINT  "{7SPACEX4)  -  IEXT  AUSGEBEN  {DOWN 

>"  <0Z9> 
120  PRINT 11  {7SPACEXS)  -  flISKBEFEHLE {DOWN> "  <175> 
130  PRINT"  {7SPACEX6)  -  PUFFER  L0ESCHEN{2D 

OWN>"  <206> 
140  PRINT"  {7SPACEX71  -  TERMINAL- PROGRAMM "  <012> 
150  GET  D*s IF  Q*-““  THEN  150  <025> 
160  ON  VAL (0*1  GOTO  210, 1930,2140, 16S0, 254 

0,2430,190  <110> 
170  IF  GS="0"  THEN  GOSUB  2370:END  <138> 
180  GOTO  150  <21 1> 
190  GOSUB  2370: LOAD'TERMINAL" ,8  <232> 
200  :  <002> 
210  REM  *.  TEXT  SCHREIBEN  *»  <22S> 
220  PRINT" <CLR>": GOSUB  2300  <216> 

230  PRINT" {3D0WN, BSPACE LEDFFER  LOESCHEN  <J 

/N)?"  <230> 
240  GET  Q*=IF  Q*<  >"J"  AND  Q*<>"N"  THEN  240  <137> 
250  PRINT" <CLR>"  <106> 
260  IF  Q*="J"  THEN  MAX=0:GOTO  320  <012> 
270  GOSUB  1370: PRINT" <CLR>"  <0I7> 
280  FOR  NR=0  TO  22  <036> 
290  PRINT  ZE*(NR)  <112> 
300  NEXT  NR  <079> 
310  PRINT"  <HOME>"  <039 > 
320  NR=0  <  195> 
330  GOSUB  1030  <156> 
340  6ET  0*: IF  0*="“  OR  Q*="<HOME>"  OR  Q*=" 

<CLR>"  THEN  340  < 181 > 
350  IF  Qt="+"  THEN  MAX=MAX-1 : GOSUB  1490:GO 

TO  40  < 1 13> 
360  GOSUB  1080  < 191 > 
370  IF  A5C (Q*>  >31  AND  ASC(Q*)<128  THEN  460  <305> 
380  IF  (0*="<LEFT>"  OR  Q*=CHR*(20)>  AND  PO 

S(0)=0  THEN  330  < 1 86> 
390  IF  Q*= " <R I GHT > "  AND  POS(0)=38  THEN  330  <221> 
400  IF  Q*="<UP>"  THEN  GOSUB  1220:  GOTO  330  <306> 
410  IF  QS="<DOWN>"  THEN  GOSUB  1300:GOTO  33 

0  <243> 
420  IF  0*=CHR*(13>  OR  Q*=CHR*(141>  THEN  49 

0  <156> 
430  IF  Q*="<INST>"  AND  PEEK ( 1024+38+PEEK (2 

14)  »405  032  THEN  330  <065> 
440  IF  Q*=" {CTRL— I>"  AND  POS (01=0  THEN  BOS 

UB  630:  GOTO  330  <174> 
450  IF  Q*=" {CTRL— D>"  AND  POS(0)=0  THEN  GOS 

UB  860: GOTO  330  <179> 
460  PRINT  G*; : POKE  212,0  <216> 
470  IF  POS  < 0 1  < 39  THEN  330  <248> 
480  :  <027> 
490  REM  *  EINLESEN  »  <033> 
500  IF  NR=200  THEN  PRINT" {UP}” : GOTO  330  <209> 
510  PRINT  CHR* ( 13) ; " {UP>"; : POKE  211,0  <032> 
S20  7F*(NR>=""  <180> 
530  OPEN  1,3  <067> 
540  FOR  X=1  TO  39  C234> 
550  GET#I,E*  <178> 
560  ZES(NR»=ZE*(NR)+E*  <095> 
570  NEXT  X  <022> 

580  CLOSE  1  <023> 
590  N=39  < 18B> 
600  IF  MID*(ZE*(NR)  ,N,  1)0"  "  THEN  620  <114> 
610  N=N-1:IF  N>0  THEN  600  <191> 
620  ZE*(NR>=LEFT*(ZE*(NR) ,N)  <027> 
630  NR=NR+1:IF  NR>MAX  THEN  MAX=NR  <032> 
640  PRINT  <027> 
650  IF  NR* 100  THEN  POKE  53280,2  <152> 
660  GOTO  330  <181> 
670  :  <218> 
680  REM  *  INSERT  *  <098> 
690  IF  MAX=100  THEN  RETURN  C157> 
700  Z=PEEK<214) :N=NR  <078> 
710  FOR  X=PEEK (214)  TO  23  <006> 
720  PR INT" <39SPAC£ > " ; CHR* ( 20 ) ; "  "sNEXT  X  <247> 
730  POKE  214, Z+l: PRINT" {UP>"  <019> 
740  E=NR+22-Z:IF  E>MAX  THEN  E=MAX  <181> 
750  FOR  N=NR  TO  E  <250> 
760  PRINT  ZE*(N)  <24S> 
770  NEXT  N  <2I3> 
780  POKE  21 4 , Z : PRINT" £UP>"  <107> 
790  FOR  Z=MAX  TO  NR  STEP-1  <085> 
800  ZE*(Z+1)=ZE*(Z)  < 108> 
810  NEXT  Z  <009> 
820  MAX=MAX+1  <144> 
830  ZE*(NR>=""  <2357 
840  RETURN  <217> 
850  :  <143> 
860  REM  »  DELETE  *  <24S> 
870  IF  MAX“0  THEN  RETURN  <241 > 
880  Z=PEEK<214>  <041 > 
890  FOR  X=PEEK (214)  TO  23  <187> 
900  PRINT" <39SPACE>“;  CHR* (20) ; "  “ : NEXT  X  <172> 
910  POKE  214, Z: PRINT" <UP>"  <237> 
920  E=NR+24-Z:IF  E>MAX  THEN  E=MAX  <108> 
930  FOR  N-NR+1  TO  E  <13S) 
940  PRINT  ZE*(N)  <170> 
950  NEXT  N  <137> 
960  POKE  214, Z: PRINT" CUP>"  <031> 
970  MAX=MAX-1  <0S9> 
980  FOR  Z=NR  TO  MAX  <142> 
990  ZE*(Z)=ZE*(Z+1)  <074> 
1000  NEXT  Z  < 1 99 > 
1010  RETURN  <  131  > 
1020  :  <057> 
1030  REM  »  CURSOR  EIN  *  <167> 
1040  P=P£EK (209) +PEEK (210) »256+PEEK (211)  <I74> 
1050  IF  PEEK (P) < 128  THEN  POKE  P,PEEK(P)+I2 

8:  POKE  54272+P,0  <231  > 
1060  RETURN  <1B2> 
1070  :  < 1 06 > 
1080  REM  »  CURSOR  AUS  *  <230> 
1090  P=PEEK ( 209 ) +PEEK (210) »236+PEEK (211)  <224> 
1100  IF  PEEK (P) >127  THEN  POKE  P,PEEK(P)-I2 

8  <236> 
1110  RETURN  <232> 
1120  :  <15Q> 
1130  REM  *  ZURUECKBLAETTERN  »  <0Z7> 
1140  PRINT" <CLRJ“  <232> 
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i  ise 

NR=NR-22:IF  NR\0  THEN  IMR-0 

<244  > 

1710 

PRINT- ‘£5  '  »  ßARDCOPY <DOWN> “ 

<002> 

2280 

GOTO  40 

<221  > 

1160 

FQR  Z=NR  TO  NR+22 

<01 1> 

1720 

WA I T  198,255 

<  1  96  > 

2290 

<052> 

1170 

PRINT  ZE*<Z> 

<157> 

1730 

D=0 

<238> 

2300 

REM  «•  SPEICHERGRENZE  »* 

<  089  > 

1  180 

NEXT  Z 

<  1 24  > 

1740 

FOR  SZ— 15440  TO  SG 

<238> 

2310 

IF  SG< 33248  THEN  BY=SG- 15440 

<036> 

1190 

PRINT" <HQME>" 

<154> 

1750 

IF  PEEK ( 198) =0  THEN  1030 

<II3> 

2320 

IF  SG  >57343  THEN  BY=SG-15440-409S 

<  1 69  > 

1200 

RETURN 

<066> 

1760 

GET  B* 

<237  > 

2330 

PRINT :PR3NT"ÜYTES  BELEGT: “;BY 

<157> 

1210 

I 

<248> 

1770 

IF  B*="  •*  THEN  WA  IT  198,255:  GET  B* 

<197> 

23-40 

PR I NT" BYTES  FREI T7SPACE1: 4600M-RY 

<236> 

1220 

REM  *  CURSOR  UP  » 

<046> 

1780 

IF  b*="  THEN  POKE  53280, 6:  CLOSE  1:G 

2350 

RETURN 

<197> 

1230 

IF  NR=100  THEN  POKE  532S0 , PEEK (838) 

<09B> 

OTO  40 

<020> 

2360 

<  123> 

1240 

IF  PEEK(214)=1  AND  NR.-0  THEN 

30SUB  1 I 

1790 

IF  B*="<F3>"  AND  E-0  THEN  Z-PEEK(840> 

2370 

REM  »#  LO/HI -BERECHNUNG  «« 

<235> 

30: RETURN 

<229> 

: POKE  53280,2 

<217> 

2380 

LO=SG- I NT ( SG/256 ) *256 

<026> 

1230 

IF  PEEK (214) =1  THEN  RETURN 

1800 

!F  B*="<F3>"AND  D=0  THEN  OPEN  1,4,Z:F 

2390 

HI— INT (SG/256) 

<  140> 

PRINT" <UP>"; 

OR  Z=841  TO  845: PR INT W 1 ,CHR* (PEEK (Z) ) 

2400 

POKE  832, LO: POKE  833, HI 

<  144> 

1270 

NR— NR- 1 

<200> 

; :NEXT:D=1 

<099> 

2410 

RETURN 

<001> 

1280 

RETURN 

1810 

IF  B*-"CF1J"  THEN  D-0: CLOSE  1:P0KE  5: 

2420 

<183> 

, 

260,PEEK(B38) 

<018> 

2430 

REM  ••  PUFFER  LOESCHEN  *» 

<215> 

1300 

REM  *  CURSOR  DOWN  * 

1820 

IF  B*="<F5>"  THEN  GOSUB  2720 

<144> 

2440 

PRINT" (CLR, 2D0WN>“ 

<035> 

1310 

IF  NR=MAX  THEN  RETURN 

<027> 

1830 

C*=CHR*(USR(SZ)  ) 

<019> 

2450 

INPUT"£DFFER  LOESCHEN  (J/N)";Q* 

<197> 

1320 

IF  PEEK (214) >23  THEN  PRINT  ZEt(HR) : NR 

1840 

PRINT  CI; 

<1  14> 

2460 

IF  Q*<>"J"  AND  Q*0"N"  THEN  2450 

<035> 

=NRTl: RETURN 

<059> 

1850 

IF  D  THEN  PRlNT#l,C*j 

<07S> 

2470 

PRINT" (DOWN)" 

<  157> 

1330 

PRINT" (DOWN>"i 

1860 

IF  SZ— 53247  THEN  SZ-57343 

<070> 

2480 

IF  Q*-- "N*‘  THEN  GOSUB  2300:  WA  IT  198,25 

1340 

NR=NR+1 

<0 1  4> 

1870 

NEXT  SZ 

<132> 

5:  GOTO  413 

<083> 

1350 

RETURN 

<217> 

1880 

CLOSE  I: POKE  53280, PEEK (838) 

<229> 

2490 

SG= 15440 

<013> 

1360 

1890 

GET  B*:IF  B*=""  THEN  1890 

<010> 

2500 

GOSUB  2300 

<031  > 

1370 

REM  *  SPEICHER — >VARIOBLE  * 

<1  15> 

1900 

IF  B*=" <F5>"  THEN  GOSUB  2720 

<224> 

2510 

WAIT  198,255 

<21 1  > 

1  380 

PR  I  NT  "  (CLR ,  5DQWN ,  9SPACE  >£  I NEN 

ßDMENT 

1910 

GOTO  40 

<  1  06  > 

2520 

GOTO  40 

<206> 

BITTE...” 

<  1  1 1  > 

1920 

<193> 

2530 

: 

<037  > 

1390 

NR— 0: ZE*(0)— "" 

<105> 

1930 

REM  •*  DATEN  SPEICHERN  «* 

<213> 

2540 

REM  **  DISKBEFEHLE  *• 

<  066  > 

1400 

FÜR  SZ= 15440  TD  SB 

<  1 53> 

1940 

PRINT- <CLR>" 

<01 1> 

2550 

PR INT" (CLR , 2D0WN  > ' * ‘  -  fll RECTORY C2D0W 

1410 

E=USR(SZ> 

<051  > 

1950 

GOSUB  2300 

<247  > 

N>  " 

<  151  > 

1420 

IF  E=13  THEN  NR-NR+1: ZE* (NR)= 

1960 

IF  SG=15440  THEN  40 

<  1  43> 

2560 

PRINT  SPC (13)  CHR*(34);:P0KE  212,0:PR 

1450 

<092> 

1970 

DN*="  " 

<101> 

INT"  OIP>" 

<250> 

1430 

IF  LEN(ZE*(NR) )=39  THEN  NR=NR+1 : ZE* (N 

1980 

INPUT" <2D0WN)ÜATE  XNAME  " ; DN* 

<  1  67  > 

2570 

POKE  198,1: POKE  631,29 

<172> 

R>=|"  " 

<  1  00  > 

1990 

IF  DN*-""  THEN  40 

<0 1 5> 

2580 

INPUT "HI SKBFFEHL  "  ;  B* 

<21 7> 

1440 

ZE*(NR)-ZE*(NR)*CHR*(E> 

<198> 

7000 

OPEN  l,8,2,DN*+",S,W" 

<059> 

2590 

IF  B*="*"  THEN  PRINT : SYS  91B:WA1T  19S 

1450 

IF  NR'.  100  THEN  NEXT  SZ 

<244> 

2010 

GOSUB  2660 

<060* 

,255: GOTO  40 

<074> 

1460 

IF  NR= 1 0Z  THEN  PRINT“ (4D0WN , 8SPACE )flC 

2020 

PRINT« 1 ,CHR*(USR( 15440) ) ; 

<057> 

2600 

OPEN  15,8,15 

<045  > 

HTUNG,  JJEXT  ZU  LANG  •••"sWAIT 

198,255 

<212> 

2030 

IF  ST<  >0  THEN  2100 

<037  > 

2610 

PRINT«15,B* 

<204  > 

1470 

MAX=NR:POKE  198,0: RETURN 

<146> 

2040 

CMD  1 

<205> 

2620 

GOSUB  2680 

<163> 

14G0 

<007> 

2050 

FOR  SZ= 15441  TO  SG 

<039> 

2630 

CLOSE  15 

<086  > 

1  <90 

REM  *  VARIABLE — >SP£ICHER  • 

<235> 

2060 

PRINT  CHR*(USR(SZ) > ; 

<101> 

26  40 

WAIT  190, 255: GOTO  40 

<12S> 

1500 

POKE  53280, PEEK  (838) 

<092> 

2070 

IF  SZ=53247  THEN  SZ=57343 

<025> 

2650 

<15S> 

1510 

PR I NT " (CLR , 5DOWN , 9SPACE  >£ I NEN 

ßDMENT 

2080 

NEXT  SZ 

<0S5> 

2660 

REM  **  DISKSTATUS  •* 

<  1  80  > 

BITTE. . . C2D0WN}" 

<019> 

2090 

PRINT M  1  , 

<  1  66  > 

2670 

OPEN  15,8,15 

<115> 

1520 

SG- 15440 

<  063  > 

2100 

CLOSE  1: CLOSE  15 

<077> 

2680 

INPUTH15 , B*,C* 

<145> 

1330 

FOR  NR=0  Tü  MAX 

<  1  40> 

2110 

IF  VAL ( B*) < >0  IHEN  WAIT  1?S,255 

<  132> 

2690 

PRINT" (2D0WN>aiSKSTATUS:  "B*i “  ";C*;" 

1540 

IF  ZE*  (NR)  ="**  THEN  1590 

<  181  > 

2120 

GOTO  40 

<061  > 

<DOWN>- 

<107> 

tssa 

FOR  Z-l  TO  LEN<ZE*  <NR>  > 

2130 

( 

<  148> 

2700 

RETURN 

<  036  » 

1560 

Ql— MID*  <  ZE* (NR)  ,Z, 1 ) 

<247> 

2140 

REM  DATEN  LADEN  ••• 

<  191  > 

2710 

<21B> 

1570 

POKE  SG , ASC ( Q*  > : SG=SG+ 1 

<012> 

2150 

DN*=" " 

<026  > 

2720 

REM  »  HARDCOPY  * 

<231  > 

1580 

NEXT  Z: ZE* (NR) =" " 

<242> 

2160 

INPUT" {CLR, 3D0WNJAATEINAME  " j DN* 

<B00> 

2730 

D=0: CLOSE  1 :Z=PEEK (840) : OPEN  1,4,Z 

<202> 

1590 

POKE  SG,  13:  SG—SG+l 

<248> 

2170 

IF  DN*-"”  THEN  40 

<  196> 

2740 

FOR  Z=94 1  TO  B45:PRINT#1 , CHR* (PEEK ( Z ) 

1600 

NEXT  NR 

<104> 

2180 

SE=15440 

<214> 

);:NEXT 

<216> 

1610 

SG=SG-1 

<018> 

2190 

OFEN  I ,B,2,DNJ+",S,R" 

<245> 

2750 

OPEN  2,3 

<248> 

1620 

BOSUB  2300:  WA IT  198,255 

<226> 

2200 

GOSUB  2660 

<251  > 

2760 

PRINT" <HOME  > “ ; 

<253> 

1630 

RETURN 

<242> 

2210 

IF  VAL (B*>  <  >0  THEN  2250 

<181  > 

2770 

PRINT » 1  p  j.. 

<165> 

1640 

<168> 

2220 

POKE  14 4,0: POKE  832,30: POKE  033,60 

<  067  > 

2780 

for  z-i  to  25  Listmq  »Editor« 

<175> 

1650 

REM  •*  DATEN  AUSGEBEN  «• 

<  101> 

2230 

SYS  B48: REM  LOAD-ROUTINE 

<060> 

2790 

FOR  SP=1  TO  40 

<255> 

1660 

PRINT" <CLR>“ 

<  242> 

2240 

SG=PEEK(832) +PEEK (833) «256-1 

<068> 

2800 

GET#2,E*:PRINT»1,E*;  (xhlUlj) 

<088> 

1670 

GOSUB  2300 

<222> 

2250 

CLOSE  I: CLOSE  15 

<227> 

2810 

NEXT  SP  »  ' 

<041> 

1680 

IF  SG-1S440  THEN  40 

<1  18> 

2260 

IF  SG— — 1  THEN  PRINT" (2D0WN)flCHTUNS,  £ 

2820 

NEXT  Z 

<235> 

1690 

‘>R  INI”  (DOWN }  '  £.1  =  BILDSCHIRM- 

<  1 13> 

UFFER  VOLL  !  !  !  <21>0WN  )  “  :  SG*65333 

<  1  31  > 

2830 

PR 1 N I » 1 s  CLOSE  1 : CLOSE  2 

<249> 

1700 

PRINT" -£3*  *  DRUCKER" 

<155> 

2270 

GOSUB  2300: WAIT  198,255 

<n0> 

2840 

RETURN 

<177> 
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Commodore-Sporlservke  — 
Heimcomputer  zur  Turnierauswertung 

Eine  handvoll  Unternehmen  hat  sich  auf  das  Auswerten  von  Sportveranstal¬ 
tungen  spezialisiert.  So  auch  der  Commodore-Sportservice,  der  bei  Veran¬ 
staltungen  von  Rang  und  Namen  zu  finden  ist.  Diesmal  war  er  beim  Berliner 
Springreiten,  bei  dem  Conrad  Homfeld  den  World  Cup  mit  nach  Hause  nahm. 


Sie  kennen  bestimmt  die 
Spielstand-Einblendungen  bei 
Sportübertragungen  am  unte¬ 
ren  Rand  Ihres  Fernsehers.  Was  da¬ 
hinter  steckt,  ist  ein  sehr  großer  Auf¬ 
wand  an  Elektronik.  Aber  keine  Rie- 
sen-Computer,  sondern  viele  Kleine 
machen  die  Arbeit.  Durch  die  Ver¬ 
wendung  von  Mikrocomputern  wird 
das  System  so  flexibel,  daß  jedes  an¬ 
fallende  Problem  damit  gemeistert 
werden  kann.  Es  ist  ein  großer  Un¬ 
terschied  zwischen  einer  Hallenver¬ 
anstaltung  und  einem  Skirennen, 
bei  dem  Minusgrade  nicht  nur  den 
Computern  zu  schaffen  machen  und 
die  Anlage  auf  Pistenraupen  durch¬ 
geschüttelt  wird.  Ebenso  wechseln 
die  Anforderungen  an  die  Lei¬ 
stungsfähigkeit  des  Systems  von  Fall 
zu  Fall. 

Ein  anderer  Grund,  der  für  ein  Sy¬ 
stem  aus  mehreren  kleinen  Compu¬ 
tern  spricht,  ist  die  Fehlersuche. 
Denn  ein  großes  System  ist  wesent¬ 
lich  servicefreundlicher,  wenn  es 
aus  kleinen  Einheiten  zusammenge¬ 
setzt  ist.  Stellen  Sie  sich  vor,  Sie  hät¬ 
ten  eine  große  EDV-Anlage  bei  ei¬ 
ner  Veranstaltung  im  Keller  stehen 
und  nur  Terminals  am  Richterturm. 
Nun  fällt  ein  Bauteil  aus.  Die  an¬ 
schließende  Fehlersuche  wird  sich 
dann  als  sehr  schwierig  erweisen, 
da  der  Fehler  erst  lokalisiert  werden 
muß.  Außerdem  liegt  während  der 
Reparaturzeit  das  System  lahm  und 
die  Veranstaltung  müßte  unterbro¬ 
chen  werden.  Im  Gegensatz  dazu 
lassen  sich  Fehler  in  einem  System, 
das  aus  mehreren  kleinen  Compu¬ 
tern  zusammengesetzt  ist,  sehr 
schnell  beheben.  Man  sieht  schnell, 
welcher  Computer  defekt  ist  und 
tauscht  ihn  einfach  gegen  einen 
neuen  aus.  Dadurch  kann  ein  Fehler 
so  schnell  behoben  werden,  daß 
der  Außenstehende  vielleicht  gar 
nichts  davon  merkt, 

Das  System  des  Commodore- 
Sportservice  besteht  aus: 

30  SX  64,  der  tragbaren  C  64-Version 
mit  integriertem  Diskettenlaufwerk 
25  CBM  8296  Personal  Computer 


Hier  laufen  die  Signale  der  Schriftgeneratoren  zusammen.  Auf  dem  linken  Monitor  die 
Rangliste,  auf  dem  rechten  das  World  Cup-Logo.  Das  Bild  auf  dem  mittleren  Monitor 
bekommt  der  Ü-Wagen.  Die  Schrift  wird  mit  dem  »Blue  Box-Trick«  ins  Fernsehbild 
eingeblendet. 


25  CBM  4040  Floppy-Disk-Doppel- 
laufwerken 

25  MPP  1361  Drucker  mit  IEEE- 
Anschluß 

2  Festplattenlaufwerke  20  MByte 
8  Telefonmodems  zur  Fernübertra¬ 
gung  von  Daten 

4  Videogeneratoren  zur  Fernsehdi- 

rekteinblendung 

50  1701  Farbmonitore 

6000  W  Notstromversorgung,  falls 

der  Strom  bis  zu  fünf  Minuten  aus- 

bleiben  sollte. 

Mit  diesen  Geräten  hat  der  Com¬ 
modore-Sportservice,  kurz  COSS 
genannt,  seit  1982  über  100  nationale 
und  internationale  Sportveranstal¬ 
tungen  im  europäischen  Raum  be¬ 
treut  und  Veranstalter,  Zuschauer, 
Presse  und  Fernsehen  mit  Informa¬ 
tionen  über  den  Wettkampf  belie¬ 
fert.  Wenn  beispielsweise  Journali¬ 
sten  wissen  möchten,  wieviel  ein 
Teilnehmer  während  des  Wett¬ 
kampfes  schon  an  Prämien  »kas¬ 
siert«  hat,  können  sie  sich  beim 
Sportservice  jederzeit  eine  Gewinn¬ 
liste  holen. 


Die  SX  64-Computer  werden  vor 
allem  bei  Sportarten  eingesetzt,  die 
nach  vielfältigen  Kriterien  beurteilt 
werden.  Ein  sehr  gutes  Beispiel  da¬ 
für  sind  die  nordischen  Skimeister¬ 
schaften,  wo  verschiedene  Diszipli¬ 
nen  gleichzeitig  ausgetragen  wer¬ 
den.  Es  müssen  dort  viele  Rangli¬ 
sten  gleichzeitig  geführt  werden: 
Skispringen,  Langlauf,  Biathlon,  etc. 
Jeder  SX  64  hat  dazu  ein  Programm, 
das  eine  bestimmte  Auswertung 
übernimmt. 

Den  Commodore-Sportservice 
gibt  es  seit  Januar  1981,  wo  sich  das 
Team  mit  der  Betreuung  des  FIS- 
Slaloms  der  Herren  in  Lermoos  pro¬ 
filieren  konnte.  Die  siebenköpfige 
Mannschaft  besteht  aus  Program¬ 
mierern  und  Elektronikern,  die 
auch  die  gesamte  Software  und  In¬ 
terface-Hardware  entwickelt  ha¬ 
ben.  Bei  großen  Vorhaben  wird  das 
Team  entsprechend  verstärkt,  so 
daß  auch  schon  mal  15  Mann  Kabel 
hinter  Deckenverkleidungen  verle¬ 
gen. 
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Inzwischen  hat  man  bei  Commo- 
dore  Erfahrung  mit  alpinen  und  nor¬ 
dischen  Skimeisterschaften,  im 
Kanu-,  Rad-,  Reit-  und  Rudersport, 
bei  Schwimmveranstaltungen  und 
im  Turmspringen.  Bisher  war  die 
Betreuung  von  Veranstaltungen  im¬ 
mer  ein  Erfolg  für  den  Veranstalter 
und  den  COSS.  Auch  die  Fernsehan¬ 
stalten  stellen  dem  Commodore- 
Sportservice  ein  sehr  gutes  Zeugnis 
aus. 

Es  werden  aber  nicht  nur  Zeitaus¬ 
wertungen  gemacht.  Die  Computer 
nehmen  dem  Veranstalter  auch  viel 
organisatorische  Arbeit  ab.  Zum 
Beispiel  bei  der  Erstellung  der 
Melde-  und  Startlisten.  Die  Melde- 
und  Startlisten  von  Hand  nach  Klas¬ 
sen  zu  ordnen  und  mit  Schreibma¬ 
schine  zu  tippen,  kostet  manuell 
sehr  viel  mehr  Zeit. 

Besonders  kompliziert  wird  der 
Vorgang,  wenn  ein  Reiter  mit  mehre¬ 
ren  Pferden  an  einem  Wettbewerb 
teilnehmen  möchte.  Der  Reiter  kann 
nämlich  selbst  bestimmen,  mit  wel¬ 
chen  Pferden  in  welcher  Reihenfol¬ 
ge  er  springen  will.  Das  Reglement 
schreibt  aber  vor,  daß  zwischen 
zwei  Durchgängen  eines  Reiters 
mindestens  sechs  andere  Teilneh¬ 
mer  auf  dem  Parcour  gewesen  sein 
müssen.  Bestehen  nur  vier  oder  fünf 
Reiter  auf  die  selbst  festgelegte 
Startreihenfolge,  kommt  die  Melde¬ 
stelle  ins  »Rotieren«. 

Die  Startliste  ist  aber  nicht  nur  der 
einzige  »Zusatzservice«.  Ist  eine  Prü¬ 
fung  beendet,  kann  sofort  eine  Liste 
mit  den  Zwischenergebnissen  ge¬ 
druckt,  vervielfältigt  und  verteilt 
werden.  Diese  Liste  zeigt  zugleich 
die  Startreihenfolge  der  nächsten 
Prüfung. 

Bis  zu  30  SX  64  in  ei¬ 
nem  Informationssystem 

Wie  schon  erwähnt,  werden  die 
SX  64  zum  Erstellen  von  Punkteli¬ 
sten,  Ranglisten,  Startreihenfolgen 
verwandt,  wenn  eine  große  Informa¬ 
tionsflut  zu  bewältigen  ist.  So  liefert, 
etwa  bei  nordischen  Skimeister¬ 
schaften,  einer  die  augenblickliche 
Rangfolge  im  Sprunglauf,  ein  ande¬ 
rer  die  Langlaufergebnisse  oder 
den  Stand  in  der  nordischen  Kombi¬ 
nation.  Auch  eine  Aufstellung  ausge¬ 
schiedener  Teilnehmer  der  einzel¬ 
nen  Klassen  kann  erstellt  werden. 

Je  nach  Wichtigkeit  wird  der  Vi¬ 
deoausgang  eines  bestimmten  SX 
64  einem  Videoverstärker  (zur  An¬ 
steuerung  von  bis  zu  50  Monitoren) 
zugeschaltel  und  das  verstärkte  Bild 
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dem  Infosystem  zugeführt.  Über 
dieses  System  werden  Veranstalter, 
Teilnehmer  und  Zuschauer  vom 
COSS  mit  aktuellen  Informationen 
versorgt.  Dazu  werden,  wo  sich  die 
Möglichkeit  bietet,  Farbmonitore 
aufgestellt.  In  Hallen  oder  in  Korri¬ 
doren  (falls  die  Veranstaltung  inner¬ 
halb  eines  Gebäudes  stattfindet),  in 
Sprecherkabinen  von  Rundfunkre¬ 
portern  und  in  Pressesälen.  Über 
das  Infosystem  wird  meist  das  mo¬ 
mentane  Geschehen  mit  einer  ak¬ 
tuellen  Auswertung  gezeigt. 

Über  ein  selbstentwickeltes  Inter¬ 
face  werden  die  SX  64  miteinander 
»vernetzt«,  meist  in  Gruppen  von  fünf 
Computern.  Die  fünf  Heimcomputer 
werden  mitsamt  dem  Interface  in 
einfach  zu  transportierenden  HiFi- 
Turm-artigen  Schaltschränken  un¬ 
tergebracht.  Durch  dieses  vom 
COSS  entwickelte  Interface  können 
die  SX  64  auf  eine  der  20  MByte- 
Festplatten  zugreifen  und  von  dort 
ständig  die  neuesten  Ergebnisse  ho¬ 
len  und  auswerten.  Es  ist  auch  mög¬ 
lich,  vom  Richterturm  aus,  mit  einem 
CBM  8296,  den  SX-64  Kommandos 
zu  geben. 

Das  selbstentworfene  Interface 
empfängt  über  eine  V.24-Schnittstel- 
le  von  einem  CBM  C°96  oder  von 
Festplatte  Daten  und  sendet  sie 
über  den  User-Port  an  einen  SX  64. 
Am  User-Port  wird  softwareseitig  ei¬ 
ne  8-Bit-Parallelschnittstelle  simu¬ 
liert,  die  der  Centronics-Norm  recht 
ähnlich  ist.  Anhand  einer  Geräte¬ 
adresse  erkennt  das  Interface,  an 
welchen  SX  64  die  Daten  geleitet 
werden  sollen.  Die  Geräteauswahl 
findet  also  im  Interface  statt,  und 
nicht  im  SX  64. 

Drei  Tage  Aufbau 

Der  technische  Aufwand  läßt  er¬ 
ahnen,  welche  Arbeit  investiert  wer¬ 
den  muß,  um  die  gesamte  Anlage 
aufzubauen.  Beim  World  Cup  der 
Springreiter  in  Berlin  mußten  dazu 
innerhalb  drei  Tagen  etliche  hun¬ 
dert  Meter  Kabel  verlegt  werden, 
um  aus  den  einzelnen  Computern 
ein  einziges  System  zu  machen  und 
um  die  Verbindung  zum  Übertra¬ 
gungswagen  herzustellen. 

Das  Herz  des  Systems  befindet 
sich  mit  auf  dem  Richterturm,  hinter 
der  Richterbank.  In  der  Berliner 
Deutschlandhalle  standen  dort  vier 
CBM  8296  mit  Diskettenlaufwerken 
und  Druckern  und  zwei  Schriftgene¬ 
ratoren  (Aston  3).  Anstelle  der  8296 
könnten  genauso  C  64  verwendet 
werden,  so  der  COSS-Geschäfts- 
führer  Dr.  Hehenwarter,  aber  die 
8296  sind  nun  mal  mit  entsprechen¬ 


den  Programmen  vorhanden.  Mit 
drei  der  vier  CBM  8296  wurde  über 
Schriftgeneratoren  das  Bild  fürs 
Fernsehen  und  das  Infosystem  er¬ 
zeugt.  Für  das  Fernsehbild  hatte 
man  zwei  Computer:  Einen  für  die 
Zeit-  und  Fehlerpunkte-Einspielung 
und  einen  für  Rangliste.  Dadurch 
konnten  beiden  Auswertungen  ab¬ 
wechselnd  dem  Fernsehbild  zuge¬ 
mischt  werden.  So  lange  ein  Reiter 
sich  auf  dem  Parcour  befand,  wur¬ 
den  in  der  Regel  die  Zeit  und  die 
Fehlerpunkte  eingeblendet.  Anson¬ 
sten  zeigte  man  den  World  Cup- 
Stand.  Über  das  Infosystem  wurde 
der  aktuelle  Ritt  mit  dem  Zeitstand 
gezeigt.  War  einmal  kein  Reiter  auf 
dem  Parcour,  konnten  von  den  SX  64 
Logos  oder  Pictogramme  abgeru¬ 
fen  und  übers  Infosystem  gezeigt 
werden.  Das  war  beispielsweise  ein 
stilisierter  Reiter  oder  das  Commo- 
dore-Firmenzeichen.  Mit  dem  vier- 


Mehrere  Heimcomputer  SX  64  übernehmen 
Auswertungen  für  das  Infosystem. 
Zuschauer  und  Teilnehmer  erfahren, 
was  aktuell  ist. 
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Sehr  viele  Kabel  sind  zu  verlegen.  Auf  dem  Foto  sehen  Sie  den 
kleinen  Ausschnitt  der  Anlage  auf  dem  Richterturm. 


Im  Keller  befindet  sich  unscheinbar  das  Gedächtnis  des  ganzen 
COSS-Systems:  zwei  Festplattenlaufwerke  mit  insgesamt  40  MByte. 


ten  der  CBM  8296  wurde  die  Anzei¬ 
getafel  in  der  Halle  angesteuert. 

Dem  Infosystem  waren  in  der 
Deutschlandhalle  etwa  50  Monitore 
in  den  Gängen  und  im  Pressesaal 
angeschlossen,  wo  das  laufende 
Geschehen  gezeigt  wurde.  Ins  Ka¬ 
merabild  wurden  ständig  die  ak¬ 
tuellen  Zwischenergebnisse  einge¬ 
blendet.  Das  laufende  Geschehen 
nahm  der  Commodore-Sportservice 
mit  einer  eigenen  Kamera  auf. 

In  Berlin  wurden  die  gemessenen 
Zeiten  ausnahmsweise  auf  Zuruf  ein¬ 
gegeben.  Im  Regelfall  ist  das  nicht 
notwendig.  Ein  CBM  8296  wird  dazu 
über  eine  V.24-Schnittstelle  direkt 
mit  der  Elektronik  der  Zeitmessung 
verbunden.  Vor  dem  Wettkampf 
werden  die  Nennungen  eingege¬ 
ben.  Die  Nennung  umfaßt  neben 
den  Namen,  mitgebrachte  Punkte 
für  die  World  Cup-Wertung,  die  Na¬ 
tion,  die  Klasse  und  den  Verein.  Aus 
diesen  Daten  wird  eine  Startliste  für 
den  Veranstalter  erstellt.  Was  wäh¬ 
rend  des  Turnieres  noch  getan  wer¬ 
den  muß,  beschränkt  sich  auf  die 
Eingabe  der  Fehlerpunkte. 

Die  Zeitnahme  ist  in  diesem  Zu¬ 
sammenhang  auch  das  einzige,  das 
der  Commodore-Sportservice  nicht 
selbst  macht.  Das  übernehmen  Spe¬ 
zialfirmen  wie  Omega,  Longines 
und  Alge,  die  Ihnen  bestimmt  als 
Uhrenhersteller  bekannt  sind.  Die¬ 
se  Firmen  erledigen  die  technische 
Zeiterfassung  und  stellen  das  Zeit¬ 
signal  den  Commodore-Leuten  be¬ 
reit.  Der  Vorteil  dieser  Direktverbin¬ 
dung  liegt  auf  der  Hand:  keine 
Übertragungsfehler  mehr  beim  Zu¬ 
rufen  der  Zeit  und  keine  Eingabe¬ 
fehler  mehr. 


Zuschauer  verlangen  gute  Informationsdar¬ 
stellungen 

Damit  die  Zuschauer  zu  Hause  vor 
dem  Fernseher  und  die  Zuschauer 
vor  Ort  gut  über  das  Geschehen  in¬ 
formiert  werden  können,  sind  viele 
Probleme  zu  lösen  und  hohe  Investi¬ 
tionen  nötig. 

Ein  Problem,  das  häufig  Übftrete, 
sei  der  Anschluß  der  Score-Boards, 
der  großen  Anzeigetafeln,  die  in  je¬ 
dem  Stadion  oder  jeder  Sporthalle 
zu  finden  sind,  so  Dr.  Hehenwarter. 
Der  Anschluß  der  Tafeln  erfolgt 
zwar  über  RS232-Schnittstellen,  die 
aber  teilweise  alles  andere  als  ge¬ 
normte  Baudraten  haben. 

Sehr  hohe  Investitionen  waren  für 
die  zwei  Schriftgeneratoren  nötig. 
Ohne  Zubehör  wie  Einstellmonitore, 
Floppy-Disk-Laufwerk  kostet  ein 
einziger  Schriftgenerator  (Aston  3) 
über  100000  Mark.  Die  Schriftgene¬ 
ratoren  erzeugen  die  Schrift,  wie  sie 
später  im  Fernsehen  oder  auf  den 
Monitoren  des  Info-Systems  zu  se¬ 
hen  ist.  Von  den  beiden  Schriftgene¬ 
ratoren  erzeugt  einer  die  Schriftein¬ 
blendungen  für  das  Info-System, 
der  andere  liefert  das  Videosignal 
der  Schrift  dem  Übertragungswa¬ 
gen.  Diese  Schriftgeneratoren  kön¬ 
nen  fast  alles  erdenkliche,  was  mit 
Schrift  zu  tun  hat:  verschiedene 
Schrifttypen,  Farbwechsel,  Block¬ 
satz,  verkleinern,  vergrößern,  ver¬ 
schieben  oder  schrägstellen  der 
Schrift  und  mehr.  Der  Anzahl  der 
Schrifttypen  sind  keine  Grenzen  ge¬ 
setzt.  Die  einzelnen  Typen  können 
mit  einer  Kamera  aufgenommen 
und  durch  den  Schriftgenerator  di¬ 
gitalisiert  werden.  Die  Zeichensätze 
werden  dann  auf  Diskette  gespei¬ 


chert  und  können  jederzeit  geladen 
werden. 

Die  Ansteuerung  der  Schriftgene¬ 
ratoren  durch  den  Computer  erfolgt 
denkbar  einfach:  genau  wie  ein 
Drucker.  Die  Texte  werden  einfach 
im  ASCII-Code  an  den  Schriftgene¬ 
rator  gesandt  und  können  dort  bear¬ 
beitet  werden.  Die  Generatoren  ha¬ 
ben  auch  eine  eigene  Tastatur  und 
ein  einfaches  Textverarbeitungs¬ 
programm  zur  direkten  Texteinga¬ 
be. 

»Früher«,  so  Dr.  Hehenwarter,  »ge¬ 
nügte  das  Schriftbild  eines  Compu¬ 
ters  noch  den  Qualitätsansprüchen. 
Heutezutage  ist  es  aber  undenkbar, 
eine  Matrixschrift  mit  vielleicht  8x8 
Punkten  ms  Fernsehbild  einzublen¬ 
den.« 

90  Programme  für 
ein  Reitturnier 

Neunzig  Programme  wurden  in 
Berlin  zur  Auswertung  des  World 
Cup-Turniers  gebraucht.  Alle  hat 
das  COSS-Team  selbst  geschrieben. 
»Das  geht  auch  nicht  anders«,  so  ein 
Mitarbeiter,  »denn  die  Programme 
müssen  häufig  noch  am  Richterturm 
umgeschrieben  werden.«  Es  ist  also 
sehr  wichtig,  daß  mindestens  ein 
Programmierer,  der  an  der  Softwa¬ 
reerstellung  beteiligt  war  und  des¬ 
halb  das  Programm  sehr  gut  kennt, 
mit  von  der  Partie  ist.  Man  braucht 
sich  dazu  nur  ein  Programm  näher 
betrachten.  Man  wird”  schnell  fest¬ 
stellen,  daß  es  professionelle  Pro¬ 
gramme  sind,  die  mit  den  meisten 
handelsüblichen  Dateiverwaltun¬ 
gen  nur  den  Namen  gemeinsam  ha¬ 
ben.  Hier,  beim  Schreiben,  Verän- 

ü*  ist 
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C  64 


dern,  Anpassen  und  Compilieren 
der  Programme  werden  auch  die 
4040-Laufwerke  benötigt. 

SX  64- 

Garbage  Collection 
in  einer  Sekunde 

Ein  Ansporn  für  C  64-Program- 
mierer  dürfte  die  Tatsache  sein,  daß 
die  COSS-Leute  für  den  SX  64  eine 
Garbage  Collection  geschrieben 
haben,  die  maximal  eine  Sekunde 
braucht,  um  den  gesamten  String¬ 
speicher  des  SX  64  oder  C  64  »aufzu¬ 
räumen«.  Jeder  SX  64/C  64-Pro- 
grammierer  hat  wahrscheinlich 
schon  mit  dem  Problem  der  Garba¬ 
ge  Collection,  die  bis  zu  einer  hal¬ 
ben  Stunde  dauern  kann,  gekämpft. 
Ohne  diese  schnelle  Garbage 
Collection-Routine  wäre  der  Einsatz 
des  SX  64  als  Computer  zur  schnel¬ 
len  Auswertung  gar  nicht  denkbar. 

Sämtliche  Datenleitungen  haben 
einen  gemeinsamen  Knotenpunkt: 
zwei  20-MByte-Festplattenlaufwer- 
ke,  die  in  Berlin  in  einem  finsteren 
Loch  »versteckt«  waren.  Die  Verbin¬ 
dung  der  Computer  mit  dem  Lauf¬ 
werk  erfolgt  über  eme  Schnittstelle, 
die  von  den  COSS-Mitarbeitern 
selbst  entwickelt  wurde.  Im  Gegen¬ 
satz  zu  einer  gewöhnlichen  V.24- 
Schnittstelle,  die  maximal  19200 
Bit/Sekunde  übertragen  kann, 
schafft  die  C  OSS-Schnittstelle  um 
160000  Bit/Sekunde,  also  etwa  das 
9fache.  Diese  Schnittstelle  wird  von 
den  IEEE-Schnittstellen  der  Compu¬ 
ter  und  Festplattenlaufwerke  ange¬ 
steuert. 

Datenübertragung  nach 
eigenem  Konzept 

Warum  man  überhaupt  eine 
Schnittstellenwandlung  vornimmt 


und  die  Daten  seriell  sendet,  liegt 
einfach  an  der  Zuverlässigkeit  die¬ 
ser  Art  von  Datenübertragung.  Pa¬ 
rallele  Übertragung  von  IEEE- 
Signalen  wäre  auf  der  benötigten 
Kabellänge  einfach  viel  zu  anfällig 
gegen  Störstrahlungen.  Das  Pro¬ 
blem  ist  nämlich,  daß  die  Datenlei¬ 
tungen  in  den  gleichen  Kabel¬ 
schächten  untergebracht  werden 
müssen  wie  die  Starkstromkabel. 
Und  die  Übertragungssicherheit 
muß  auf  jeden  Fall  gewährleistet 
sein.  Schließlich  holt  sich  jeder 
Computer  des  Systems  von  den 
Festplattenlaufwerken  die  Daten  zu 
einer  bestimmten  Auswertung  oder 
speichert  welche  ab. 

Auch  Lösungen  für 
kleinere  Veranstaltungen 

Aus  der  Erfahrung,  die  der  Com- 
modore-Sportservice  bei  nationalen 
und  internationalen  Großveranstal¬ 
tungen  gewann,  wurde  ein  Pro¬ 
gramm  für  den  C  64  entwickelt,  das 
als  Steckmodul  erhältlich  ist.  Mit 
diesem  Modul  kann  jeder  kleinere 
Verein  fast  jede  Art  von  Meister¬ 
schaften  oder  ähnliche  Veranstal¬ 
tungen  auswerten.  Ws  dazu  nötig 
ist,  ist  ein  C  64  mit  Monitor,  ein 
1541-Diskettenlaufwerk  und  ein 
Drucker.  Mit  dem  Steckmodul  kön¬ 
nen  die  Daten  von  bis  zu  400  Teilneh¬ 
mer  in  40  Klassen  verwaltet  werden. 
Für  größere  Vorhaben  bietet  Com- 
modore  auch  andere  Lösungen  an. 
Zum  Beispiel  CBM  8296-Computer 
mit  Diskettenlaufwerk,  Drucker  und 
den  entsprechenden  Programmen. 
Wem  das  nicht  leistungsfähig  genug 
ist,  kann  sich  auch  den  Commodore- 
Sportservice  mieten.  Sollten  Sie  in¬ 
teressiert  sein,  erfahren  Sie  die  Ko¬ 
sten  auf  Anfrage  bei  Commodore  in 
Frankfurt.  (hm) 


Fortsetzung  von  Seite  40 

EEPROMs  wurden  dabei  allerdings 
nicht  berücksichtigt.  Die  Software 
erlaubt  das  komfortable  aber  leider 
auch  falsche  Programmieren.  Mit 
dem  eingebauten  Monitor  werden 
Programme  eingeladen,  bezie¬ 
hungsweise  ausgelesene  EPROMs 
abgespeichert.  Alle  anderen  we¬ 
sentlichen  Funktionen  erreicht  man 
durch  einfache  Auswahl  aus  einem 
Menü. 

Bei  der  Programmierzeit  wurde 
ein  Kompromiß  zwischen  Geschwin¬ 
digkeit  und  Datensicherheit  einge¬ 
gangen.  Während  des  Tests  gab  es 
allerdings  keinerlei  Schwierigkei¬ 
ten  mit  den  programmierten 
EPROMs.  Sie  enthielten  alle  einge¬ 
gebenen  Werte.  Einziger  Nachteil 
dieses  ab  248  Mark  teuren  Gerätes 
ist  wohl  der  nicht  durchgeschleifte 
Expansion-Port.  Nach  dem  Einset¬ 
zen  des  Brenners  ist  dieser  belegt 
und  kann  nicht  mehr  für  andere  Mo- 
dule  verwendet  werden. 

Von  Roßmöller  wurde  ein  wesent¬ 
lich  verbessertes  EPROM-Program- 
miergerät  angekündigt.  Damit 
sollen  sich  auch  EPROMs  und 
EEPROMs  vom  Typ  27512  program¬ 
mieren  lassen.  Weiterhin  soll  dieses 
Gerät  mit  einer  RS232-  und  einer 
Centronics-Schnittstelle  (6-KByte- 
Druckerpuffer)  ausgestattet  sein. 
Dies  soll  zusammen  mit  einer 
6502-CPU  den  Anschluß  an  alle 
Computer  mit  dieser  Schnittstelle 
ermöglichen.  Das  Brennen  von  Ba- 
sic-Programmen  mit  Autostart  soll 
ebenso  wie  ein  wesentlich  verbes¬ 
sertes  Video-Signal  das  Gesamtbild 
abrunden.  Der  Einführungspreis 
liegt  nach  Angaben  des  Herstellers 
bei  398  Mark.  Über  Lieferzeiten  war 
noch  nichts  zu  erfahren. 

Fazit 

Es  hat  sich  etwas  getan.  Die  Her¬ 
steller  von  EPROM-Programmier- 
geräten  haben  erkannt,  daß  hier  ein 
weites  Betätigungsfeld  für  den  An¬ 
wender  liegt.  Dementsprechend 
ausgereift  sind  auch  die  getesteten 
Geräte.  Es  war  kein  Gerät  im  Test, 
das  nicht  als  gut  bezeichnet  werden 
könnte.  Besonders  gefallen  hat  der 
PP  64.  Auch  das  Dela-Programmier- 
gerät  mit  seinem  unschlagbaren 
Preis  kann  mit  zur  Spitzengruppe 
gezählt  werden.  Tapfer  geschlagen 
hat  sich  auch  unser  bisheriges  Refe¬ 
renzgerät  (das  mittlerweile  198 
Mark  kostet),  das  bis  auf  die  nicht 
mehr  zeitgemäße  Einstellung  per 
Schalter  nur  vom  PP  64  geschlagen 
wurde.  Interessant  dürfte  auch  der 
»Neue«  von  Roßmöller  werden. 

(Arnd  Wängler/ah) 
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Die  nächste  Ausgabe  erscheint  am  19.  Juli 


Neuer  Pascal-Compiler 

Die  64'er-Redaktion  hatte  als 
erste  die  Möglichkeit,  den  neu¬ 
en  Pascal-Compiler  von  Data 
Becker  zu  testen.  Handelt  es  sich 
nur  um  eine  weitere  Pascal-Ver¬ 
sion  unter  vielen,  oder  wird  hier 
ein  neuer  Maßstab  gesetzt?  Je¬ 
denfalls  sollten  Sie  mit  der  An¬ 
schaffung  eines  Pascal-Compi¬ 
lers  bis  zur  nächsten  Ausgabe 
des  64’er-Magazins  warten  —  es 
könnte  sich  lohnen. 

Forth-Compiler 
zum  Abtippen 

Das  Listing  des  Monats  in  der 
Ausgabe  8  ist  wieder  einmal  ein 
ganz  besonderer  Leckerbissen: 
Ein  Forth-Compiler  für  den  C  64 
erwartet  Sie.  Aber  keine  Angst, 
es  kommen  keine  endlosen 
DATA-Wüsten  auf  Sie  zu,  denn 
dieser  Compiler  ist  in  Basic  ge¬ 
schrieben.  Dadurch  ist  das  Com- 
pilieren  selbst  zwar  etwas  lang¬ 
sam,  die  übersetzten  Programme 
laufen  jedoch  mit  der  von  Forth 
gewohnten  Geschwindigkeit. 
Und  so  ganz  nebenbei  lernen  Sie 
beim  Abtippen  des  Programms 
die  Arbeitsweise  eines  Forth- 
Compilers  kennen. 

Hypra-Save 

Nachdem  Hypra-Load  bei  den 
Lesern  auf  so  großes  Interesse 
gestoßen  ist,  werden  wir  in  der 
nächsten  Ausgabe  das  Gegen¬ 
stück  Hypra-Save  veröffentli¬ 
chen.  Hypra-Save  ist  voll  kompati¬ 
bel  zu  Hypra-Load  und  ermög¬ 
licht  ein  erheblich  schnelleres 
Abspeichern  auf  Diskette.  Diese 
beiden  Programme  geben  je¬ 
dem  Besitzer  eines  1541-Disket- 
tenlaufwerks  ein  Werkzeug  an 
die  Hand,  das  so  manchen  hard¬ 
waremäßigen  Versuch,  das  lang¬ 
same  Diskettenlaufwerk  zu  be¬ 
schleunigen,  bei  weitem  über¬ 
trifft. 

Außerdem... 

—  Zwei  Wettbewerbe  mit  tollen 

Preisen 

—  Disk-Monitor 

—  Berichte  von  der  CES  in  Chi¬ 
cago 

—  und  wieder  viele  Tips  und 

Tricks  für  den  C  64,  VC  20  und 

C  16 
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Neueste  Spiele 


In  dieser  Ausgabe 
begannen  wir  mit  ei¬ 
ner  neuen  Art  des 
Spieletests.  Fortge¬ 
setzt  werden  diese 
Tests  unter  anderem 
mit  den  Spielen  »Mail 
Order  Monsters«  und 
»Racing  Destruction 
Set«.  Weiterhin  finden 
Sie  einen  ausführli¬ 
chen  Bericht  über  das 
neue  Spiel  zum  James 
Bond-Film. 

Was  macht 
der  Sumpf? 


Die  Raubkopierer¬ 
szene  hat  sich  in  der 
letzten  Zeit  geändert. 
Was  ist  aus  den  ehe¬ 
maligen  Crackern  ge¬ 
worden,  wie  ist  die 
Einstellung  der  heute 
noch  Aktiven?  Wir 
werden  auch  die 
rechtliche  Seite  des 
verbotenen  Kopie- 
rens  und  Tauschens 
beleuchten. 


Alles  über  Grafik 


Grafik  ist  wohl  im¬ 
mer  noch  eines  der  in¬ 
teressantesten  The¬ 
men  für  den  C  64.  In 
einem  ausführlichen 
Vergleichstest  stellen 
wir  Ihnen  die  bekann¬ 
testen  Grafik-  und 
Malprogramme  vor 
und  machen  Sie  mit 
der  Funktionsweise 
eines  Lightpens, 
Trackballs  und  Gra¬ 
fiktabletts  vertraut. 


Neuer  Kurs:  Commodore  Extern  — 


Interessiert  es  Sie,  wie  Sie  über 
den  User-Port  alle  möglichen  Gerä¬ 
te  steuern  können?  Möchten  Sie  sich 
einen  Lichtgriffel  für  unter  5  Mark 
selber  bauen?  Oder  wollen  Sie  wis¬ 
sen,  wie  man  Meßgeräte  über  den 
Control-Port  abfragt?  Unser  neuer 
Kurs  führt  Sie  in  die  Geheimnisse 
der  Hardware  sowohl  des  C  64  als 
auch  des  VC  20  ein.  Keine  Angst,  Sie 
brauchen  nicht  Elektronik  studiert 


der  Weg  nach  draußen 

zu  haben,  um  diesen  Kurs  mitverfol¬ 
gen  und  mitmachen  zu  können.  An¬ 
hand  einfacher  und  nachbausiche¬ 
rer  Bauanleitungen  und  kleiner 
Demo-Programme  ist  der  leichte 
Einstieg  in  Theorie  und  Praxis  des 
»Commodore  Extern  —  der  Weg 
nach  draußen«  garantiert  —  und  das 
auch,  wenn  Sie  sich  bisher  noch 
nicht  mit  Hardware-Basteleien  aus¬ 
einandergesetzt  haben. 


Ausga'beWJüi:  1985 
64er-online.net 
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